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INTRODUCTION 



This book contains tests/exercises for two different courses, 
Programming RSX-11M in MACRO and Programming RSX-11M in FORTRAN . 
Most of the questions apply to both courses. If a question begins 
with "In MACRO" or "In FORTRAN", that question applies only to the 
specified course. Solutions are provided for all tests/exercises. 
Where it is appropriate, separate solutions are provided for MACRO 
and FORTRAN. Solutions which involve programs should also be 
available on-line. 

Check the Student Guide in the Student Workbook for your 
course for information on how to use the tests/exercises. 



Using System Services 



TEST/EXERCISE 



1. Match the function with the type of system service used to 
perform it. 



Function 

a. The tasks send data 
back and forth to 
each other 

b. The tasks read data 
from a file on disk 

c. The tasks get input 
from an operator 

at a terminal 



Type of System Service 

1. System and task information 

2. Task control 

3. Task communication/coordin- 
ation 

4. I/O to peripheral devices 

5. File and record access 

6. Memory use 



2. Draw a figure to illustrate a method of providing a system 
service through the Executive. 
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Using System Services 
TEST/EXERCISE 

3. What is the other method for providing a system service? 

4. Identify two system libraries you might use in writing 
programs that use system services. 
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Using System Services 



SOLUTION 



1. Match the function with the type of system service used to 
perform it. 



Function 

a. The tasks send data 
back and forth to 
each other 

b. The tasks read data 
from a file on disk 

c. The tasks get input 
from an operator 

at a terminal 



Type of System Service 

1. System and task information 

2. Task control 

3. Task communication/coordin- 
ation 

4. I/O to peripheral devices 

5. File and record access 

6. Memory use 



2. Draw a figure to illustrate a method of providing a system 
service through the Executive. 



See Figure 1-1 or 1-2 
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Using System Services 



SOLUTION 



3. What is the other method for providing a system service? 
Insert the code into your task. 

4. Identify two system libraries you might use in writing 
programs that use system services. 

Any two of the following: 

SYSLIB.OLB 
RSXMAC.SML 
RMSMAC . MLB 
RMSLIB.OLB 
FOROTS.OLB 
F4P0TS.0LB 

Also acceptable: 

FCSREF.TSK 
FORRES. TSK 
F4PRES.TSK 
RMSSEQ. TSK 
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Directives 



TEST/EXERCISE 



1. In MACRO-11 

a. Modify the task READF to use the $C form of the Read Event 
Flags directive. 

b. Modify the task READF to use the $S form of the Read Event 
Flags directive. 



2. In FORTRAN, modify the task READF to set all of the odd 
numbered flags from 1 to 15(10). 

3. Modify WFLAG and SFLAG to use a global event flag instead of a 
group global event flag. Omit any unnecessary code in the 
tasks. Check with your instructor to find out which event 
flag to use. 

4. Write a task which does some work and periodically checks a 
group global event flag. Have it display a message and exit 
when the flag has been set. Write another task, or modify 
SFLAG to set the flag. 

5. Add a requested exit AST routine to WFLAG. 

6. In MACRO-11, add an odd address trap SST routine to the task 
SST. Include an instruction which causes the trap to occur. 
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Directives 



SOLUTION 



l.a 1 ♦ TITLE READF 

2 ♦ I DENT /()!/ 

♦ ENABL LC 

? + 

* File LEX21A*MAC 



3 
4 
5 
6 
7 
8 
9 
10 

11 
12 
13 
14 

15 
16 

17 
18 
19 

20 
21 
'?? 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 

35 
36 
37 

38 
39 
40 

41 
42 
43 
44 
45 
46 
47 

48 
49 

50 



? Enable lower esse 



f Modified to use the *C form of the Read All Event yyEX 

y Flags directive 

y 

y This task starts upy sets event flag lv reads the 

r event flagsy moves them into registers R0--R3 and then 

y exits* It uses the * form of the directive calls* 

y 

y The flags are returned as follows* 
y 

y word ~" event flags 1-16 

f word 1 - event flags 17-32 

y word 2 - event flags 33-48 

y word 3 ~ event flags 49-64 



MCALL RDAF*C>SETF*>EXIT*S*DIR* ? System n.3cros 

y y EX 



BUFF* 



setf: 



start: 



♦ BLKW 



SETF* 



CLR 

DIR* 

BCS 

RDAF*C 

BCS 
MOV 
MOV 
MOv 
MOV 
1 0T 



R4 

#SETF 

ERR1 

BUFF 

ERR 2 
BUFFyRO 
BUFFf2yRl 
BUFF+4 yR2 
BUFF+6 y R3 



y Come here on directive errors 



ERR2 : 
ERR1 : 



INC 
INC 

MOV 
I0T 

♦ END 



R4 
R4 

*DSUyR0 



START 



y Buffer for event fl3g 

y values 

y DF'B for Set Event Flag 

y directive 

? Clear error counter 

y Set event flag I 

y Branch on dir error 

y Read the event flags? yEX 

y (1 - 64)* 

y Branch on dir error 

y Move the event flag 

y values into the 

y registers 

y Trap and display 

y registers 



y R4=2 for read error 

? R4=l for set event 
y flag error 

f Error code into R0 

y Trap and display the 
y registers 
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Directives 



SOLUTION 



l.b i 

2 

3 
4 

5 
6 
7 

a 

9 
10 

n 

12 
13 
.1.4 
15 
16 
17 
18 
19 

20 
21 

22 

23 
24 

25 

26 
27 
28 
29 
30 
31 
32 
33 
34 

35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦ TITLE 

♦ I DENT 
♦ENABL 



READF 

/01/ 

LC 



y Enable lower case 



y File LEX21 B.MAC 



y Modified to use *S form of the Read All Event Flags yyEX 

y directive 

y 

? This task starts upy sets event flag ly reads the 

y event flags y moves them into registers R0-R3 and then 

i exits* It uses the * form of the directive calls* 

y 

? The flags are returned as follows* 

y 

y word event flags 1-16 

y word 1 - event flags 17-32 

y word .2 - event flags 33-48 

y word 3 - event flags 49-64 



BUFF : 



SETF i 



start: 



♦ MCAU 

♦ BLKW 

SETF* 



CL.R 
BIR* 

BCS 

RDAF*S 

BCS 
MOV 
MOV 
MOV 
MOV 
I0T 



RDAF*S y SETF* y EX I T*S y DIR* ? System macros 

y y EX 

4 y Buffer for event flag 

? values 



? DPB for Set Event Flag 
f directive 

5 Clear error counter 

y Set event flag 1 

y Branch on dir error 

y Read the event flags 
5 (1 ~ 64)* yJEX 

? Branch on dir error 

f Move the event flag 
? values into the 
y registers 



R4 

#SETF 

ERR1 
♦BUFF 

ERR2 
BUFFyRO 
BUFF+2 yRl 
BUFF+4 y R2 
BUFF+6 y R3 



y Come here on directive errors 



ERR2J 
ERR1 : 



INC 
INC 

MOV 
I0T 

♦ END 



R4 
R4 

*DSWyR0 



START 



? Trap and display 
i registers 



R4~2 for read error 
R4=l for set event 
flag error 

Error code into R0 
Trap and display the 
registers 
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Directives 



SOLUTION 



2. 



6 
7 
8 
9 
10 

:l.:L 
12 
13 
14 
15 
16 
17 
1 8 
19 
20 

21 
'."> 

23 
24 



z/ 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



READF.FTN 

File I...EX22 ♦ FTN 

Modified for exercises* Set odd numbered flags* HEX 

This task sets event flag 1 and then reads 
flags 1 to 16 and displays them 



INTEGER*2 IEW < 16 ) , IDSW 
Set odd event f lads* 

DO 5 K=l'»15>2 

CALL SETEF (KxIDSW) 
Branch on directive error 

IF ( IDSW ♦ LT ♦ 0) GOTO 1000 

CONTINUE 

the event flags into the array ievf* 



!EX 
!EX 
•EX 



! !EX 



Read 
that 



Note 



in FORT AN y we 
DO 20 1=1 > 16 
CALL READEF (I > IDSW) 
Branch on directive error 

I F ( IDSW ♦ LT ♦ 0) GOTO 



can only read 1 flag 3t a time 



1100 



C Check IDSW valuev 2 means set? means clear 
C Set the ievf value accordingly (1 means setv 
C means clear) 

IF (IDSW ♦ EG ♦ 2) GOTO .1.0 

IEVF < I ) "-IDSW 

GOTO 20 

10 IEVF<I>=1 
20 CONTINUE 

C Write out flag' settings* starting with flag 16 

WRITE (5>30) 
30 FORMAT (' EVENT FLAGS 16* TO 1* ARE:') 

WRITE (5i»40) (IEvT(J)y J.*16»l»-1> 
40 FORMAT (' ■ / »16I2) 

CALL EXIT 
C Come here on directive errors 

1000 WRITE <5vl010) IDSW 

1010 FORMAT (' ERROR SETTING FLAG* ERROR CODE 

CALL EXIT 
1100 WRITE (5x1110) IDSW 

1110 FORMAT (' ERROR READING FLAG* ERROR CODE 
CALL EXIT 
END 



15) 



15) 
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Directives 



SOLUTION 



1 






♦TITLE 


WFL.A6 








♦ I DENT 


/01/ 


3 






* ENABL 


LC i Enable lower case 


4 


j» 


+ 






5 


y 


FILE 


LEX23A*MAC 


6 
7 
8 
9 


9 

f 


Modified to 


use global event flag 35 ♦ 5 J EX 


y 

9 


This 


program 


creates the group global event flags* 


10 


r 


clears event 


flag 65* and waits for it to be set* When 


11 


f 


the 


fl a si is 


set it writes a message and exits* 


12 
13 


y 

y 


Assemble and 


task-bui Id instructions : 


14 


9 








15 


9 




>macro/list/object:wflag lb:ci »13progmacs/libr-> *ex 


16 


9 




-~>ARYy 


dev:Cufd-1LEX23A 


17 


9 




>L INK/MAP WFLAG»LB:C1 y 1HPR0GSUBS/LIBRARY 


18 


9 








19 
20 
21 


9 


Install and 


Run instructions* 


9 
5 




Run UIFLAGy then run SFLAG* At least one of the 


'? 


9 




tasks 


must be installed? or else the RUN command 


23 


9 




will try to install both tasks under the same 


24 


9 




name y 


TTnn ♦ 


25 


9 








26 
27 






♦MCALL 


EXIT$SyWTSE$CyCLEF*CyCRGF*C ? System 

f macros 


28 
29 
30 






♦MCALL 


TYPE f Supplied macro 


s 


tart: 


CLR 


R0 y R0 used to identify 


31 








? the error 


32 






TYPE 


<CLEAR AND THEN WAIT FOR EF 35* TO BE SET> 


33 








yyEX 


34 

35 
36 






CLEF$C 
BCS 


35* y Clear event flag 35* yyEX 
ERR2 5 Branch on directive 
y error 


37 






WTSE*C 


35* y Wait for event flag 35 


38 








y to be set ? ? EX 


39 






BCS 


ERR3 y Branch on directive 


40 








y error 


41 






TYPE 


<EF 35* HAS BEEN SET* WFLAG WILL NOW EXIT> 


42 








y 5 EX 


43 






EXIT*S 




44 


ERR 3 * 


INC 


R0 ? R0 - 3 if error on 


45 








y wait for dir 


46 


ERR2 : 


INC 


R0 ? R0 ~ 2 if error on 


47 








y clear flag dir 


48 






MOV 


$DSWyRl y Place DSW in Rl 


49 






i or 


y Trap and dump registers 


50 






♦ END 


START 
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Directives 



SOLUTION 

1 PROGRAM WFLAG 

2 C 

3 C FILE LEX23A.FTN 

4 C 

5 C Modified to use event flag 35(10) ! ! EX 

6 C 

7 C This task creates the sroup Global event flags? and 

S C then clears event flag 65* and waits for it to be set* 

9 C When the flag is set? it writes a messaae and exits 

10 C 

11 C Install and run instructions* 

12 C 

13 C Run WFLAG y then run SFLAG ♦ At least one of the 
.14 C tasks must be installed? or else the RUN command 

15 C will try to install both tasks under the same 

16 C name (TTnn) 

17 C 

IB WRITE (5?20) 

19 20 FORMAT (' CLEAR AND WAIT FOR EF 35* TO BE SET' > HEX 

20 CALL CLREF (35? IDSW) ! ! EX 

21 IF (IDSW ♦LT* 0) GOTO 1100 

22 CALL WAITFR (35?IDSW) M EX 

23 IF (IDSW J...T* 0) GOTO 1200 
2 4 WRITE (5? 30) 

25 30 FORMAT <' EF 35 4 HAS BEEN SET* FWAIT WILL NOW EXIT') 

26 C HEX 

27 CALL EXIT 

28 C Error processing 

29 C 

30 1100 WRITE (5? 1110) IDSW 

31 1110 FORMAT (' DIRECTIVE ERROR CLEARING EVENT FLAG 35* 

32 1 DSW = ' ? 15) HEX 

33 CALL EXIT 

34 1200 WRITE (5? 1210) IDSW 

35 1210 FORMAT (' DIRECTIVE ERROR WAITING FOR EVENT FLAG 

36 1 35* DSW = ' ,15) 

37 CALL EXIT 

38 END 

1 ♦ TITLE SFLAG 

2 ♦ I DENT /01/ 

3 *ENABL LC ? Enable lower case 

4 9 + 

5 9 FILE LEX23B*MAC 

6 9 

7 9 Modified to use event flag 35* ??EX 

8 ? 

9 9 This task sets event flag 65* It assumes that the 

10 9 group global event flags have already been created* 

1 1 9 

12 9 Assemble and task -build instructions* 

13 9 

14 9 MACRO/LIST LB* CI ? .1. ."JPROGMACS/LIBRARY ? dev * Cuf d3SFLAG 

15 9 LINK/MAP SFLAG? LB * CI ? 1 3PR0GSUBS/LIBRARY 
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Directives 



SOLUTION 



16 f 

17 f I n s t all 3 n d R u n n o t e s J 



18 ? 

1.9 y First run WFLAGy then run SFLAG. At least one of 

20 v the tasks must be installed? or else the RUN 

21 5 command will try to install both tasks under 

22 5 the same namey TTnn. 

23 5 

24 y- 

25 ♦ MCALL EXIT*S>SETF*C y System macros 

26 ♦ MCALL TYPE ? Supplied macros 

27 i 

28 START i TYPE <EF 35. IS BEING SET. THEN SFLAG WILL EXIT.: 

29 HEX 

30 SETF$C 35. ? Set event flag 35. y?EX 

31 BCS ERR J Branch on dir error 

32 EXIT*S y Exit 

33 ERR? MOV $DSW>R1 9 Save DSW 

34 I0T 9 Trap and dump registers 

35 ♦ END START 



.1. PROGRAM SFLAG 

2 C 

3 C FILE LEX23B.FTN 

4 C 

5 C Modified to use event flag 35. ! ! EX 

6 C 

7 C This task sets event flag 65. It assumes that the 

8 C group global event flags have already been created* 

9 C 

10 C Install and run instruct ions J 



1.1. C 

12 C Run WFLAGy then run SFLAG. At least one of the 

13 C tasks must be installed? or else the RUN command 

14 C will try to install both tasks under the same 
.1.5 C name (TTnn) ♦ 

16 C 

17 WRITE (5yl0) 

18 1.0 FORMAT (' EF 35. IS BEING SET. THEN SFLAG WILL EXIT') 

19 C MEX 

20 CALL. SETEF ( 35 r I DSW) MEX 

21 C The DSW value returned for SETEF is 2 if it was set 

22 C and if it was clear. A .1. is NOT returned for success 

23 IF (IDSW .LT. 0) GOTO 1000 

24 CALL EXIT 

25 C Error code 

26 1000 WRITE (SylOlO) 

27 1.010 FORMAT < ' DIRECTIVE ERROR SETTING EF 35. DSW = ' 

28 .1. yI4) MEX 

29 CALL EXIT 

30 END 
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Directives 



SOLUTION 



4. 



l 

':> 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

.1.6 

17 

18 

19 

20 

21 
/•, , t 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦ TITLE LEX24 

♦ I DENT /01/ 
.ENABL LC 



? Enable lower case 



FILE LEX24.MAC 



This program creates the group- global event flags? 
clears event flag 65*? does some work and periodically 
cehcks event flag 65* When the flag is set it writes a 
message and exits* 

Assemble and task-build instructions* 

MACR0/L I ST/OB JECT ♦* WFLAG LB *■ C .1. ? 1 ZIPROGMACS/LIB-- ? ? EX 
RARY ? dev ♦ Cuf d3LEX24 t- J EX 

LINK/MAP WFLAG? LB* CI ? 1 3PR0GSUBS/LIBRARY 

Install and Run instructions J 

Run WFLAG ? then run SFLAG* At least one of the 
tasks must be installed? or else the RUN command 
will try to install both tasks under the same 
name? TTnn* 

♦ MCALL EXIT*S?WTSE*C?CL.EF$C?CRGF$C ? System 

? macros 
TYPE ? Supplied macro 



START 



♦ MCAI. 
CLR 



~<0 



TYPE 
CRGF*C 

BCC 



? RO used to identify 
? the error 

<LEX24 IS CREATING THE GROUP GLOBAL EVENT FLAGS. - : 
? Create group global 
? event flags 
OK ? Branch on directive ok 

? If group global event flags already exist? 
? Just display message and continue 

CMP *DSW**IE.RSU y Check for efs already 

5 in existence 
ERR1 ? Branch on any other 

? dir error 
<GR0UP GLOBAL EVENT FLAGS ALREADY EXIST.:- 
<CLEAR EF 65. WORK UNTIL IT IS SET> 



OK 



BNE 

TYPE 
TYPE 
CLEF*C 65 



BCS 



ERR2 



? Clear event flag 65 

? Branch on di reactive 

? error 

? Clear counter 



AGAIN* CLR Rl ? Clear counter ??EX 

y Loop 2**16 times? then check flag ??EX 
LOOP* INC Rl ? Increment counter ??EX 

BNE LOOP ? Not yet cycled? 1oop??EX 

? again ? ? EX 
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Directives 



SOLUTION 



51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 



ERR 3 J 

ERR 2 ♦ 
ERR1 1 



TYPE 
CLEF*C 

BCS 
CMP 

BNE 
TYPE 
EXIT$S 
INC 



INC 

INC 

MOV 
IOT 
♦ END 



<COUNTER HAS CYCLED> t Display message r ?EX 
65 ♦ 

ERR3 

$DSWy#IS*SET 



AGAIN 



i Use Clear to read flasifyEX 

t Branch on dir error? ? EX 

y IS* SET means flas* was?? EX 

? set. 5 ? EX 

r No? lOOF 3£f3in ??EX 



<EF 65* HAS BEEN SET* LEX24 WILL NOW EXIT> 



RO 

RO 
RO 

SDSWyRl 
START 



RO - 3 if error on ??EX 

Clear FlaS dir while 

waiting 
RO - 2 if error 

clear flag dir 
RO -• 1 if error 

create aroup flags dir 
Place DSW in Rl 
Trsp 3nd dump registers 



on 



on 



1 PROGRAM I...EX24 

2 C 

3 C FILE LEX24.FTN 

4 c; 

5 C This task creates the 3 roup Global event flasisr and 

6 C then clears event flag 65* and does some work while 

7 C waiting for it to be set* When the flag is set? it 

8 C writes a message and exits 

9 C 

10 C Install and run instruct ions J 

11 C 

12 C Run LEX24y then run SFI...AG ♦ At least one of the 

13 C tasks must be installedy or else the RUN command 

14 C will trw to install both tasks under the same 

15 C name (TTnn) 

1 6 C 
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Directives 



SOLUTION 



17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 

43 
44 

45 

46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



.1.0 

c: 



15 
20 



'•>-•> 

A\. X.. 

25 
28 



30 

C En 
C 

C 0h< 
900 
C In 

910 

C Hei 

1000 

1010 



1100 
1110 



1200 
J. 2 1 



WRITE <5»10) 
FORMAT ( ' LEX24 



IS CREATING THE GROUP 



GLOBAL EVENT 
! !EX 



FLAGS' ) 



CALL CRGF (yIDSW) 

IF (IDSW *I...T* 0) GOTO 900 

WRITE <5y20) 

FORMAT (' CLEAR EE 65* WORK UNTIL IT IS SET') 
CALL CLREF < 65 y IDSW) 
IF (IDSW * LT * 0) GOTO 1100 
DO 25 K=l» 65535 
CONTINUE 
WRITE (5v28) 

FORMAT (' COUNTER HAS CYCLED') 
CALL READEF < 65 y I DSW) 



I F < I DSW . I... T ♦ ) G TO 1200 
IF (I DSW *NE* 2) GOTO 22 
WRITE (5*30) 
FORMAT < ' EF 
CALL EXIT 
processing 



!EX 
•EX 
! EX 
! EX 
!EX 
!EX 
!EX 



65* HAS BEEN SET* LEX24 WILL NOW EXIT') 



■ c k f o r c o d e o f •••• 1 7 ? in e a n i n *S f 1 a si s a 1 r e a d y e x i s t 

I F < I DSW . NE ♦ - 1 7 ) GOTO 1000 
that ease* Just d is lay a message and continue* 

WRITE (5*910) 

F R M A T ( ' G R U P G L B A L E V E N T F L AGS A L R EADY E XI ST ' ) 
GOTO 15 

e f o r f a t a I erro r s ? d i s r- 1 a y in e s s a a e a n d e x i t 
WRITE (5 f 1010) I DSW 

FORMAT (' DIRECTIVE ERROR CREATING GROUP GLOBAL 
1EF "S* DSW = ' , 15) 
CALL EXIT 

WRITE (SvlllO) I DSW 

F R M A T ( ' D I R E C T I V E E R R R C L E A R I NO EVEN T F L AG 6 5 * 
1 DSW = ' t 15) 
CALL EXIT 

WRITE <5yl210) I DSW 

F fj R M A T ( ' D I R E C T I V E E R R R R E A D I N G E VENT F L A G 
1 65* DSW = ' y 15) MEX 
CALL EXIT 
END 
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Directives 



SOLUTION 



5. 



3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE WFLAG 

♦ I DENT /Ol/ 

♦ ENABL. LC ? Enable lower case 
FILE LEX25»MAC 

Modified to include 3 Reauested Exit AST ??EX 

This program creates the <3rouj» global event flags? 
clears event flag 65* and waits for it to be set* When 
the flag is set it writes a message and exits* 

Assemble and task-build instructions* 

MACRO/LIST/OBJECT: WFLAG LB: CI tl 3PR0GMACS/LIB-? ?EX 
RARY»dev ♦ Cuf d3LEX25 HEX 
LINK/MAP WFLAG y LB* CI r .1 3PR0GSUBS/L IBRARY 

Install and Run instructions* 

Run WFLAG t then run SFLAG. At least one of the 
tasks must be installed* or else the RUN command 
will try to install both tasks under the same 
name? TTnn* 

♦ MCALL EXIT$SyWTSE*C>CLEF*C>CRGF*C ? System 

* macros 

♦ MCALL SREA*CrASTX*S ? System Macros 5* EX 
♦MCALL TYPE t Supplied macro 



start: CLR 



RO 



SREA*C REXAST 



BCS 

TYPE 

CRGF*C 



* RO used to identify 
? the error 
r Set up Reauested Exit 
? AST ?JEX 
ERRO f Branch on dir error 

< WFLAG IS CREATING THE GROUP GLOBAL EVENT FLAGS! 
i Create group global 
i event flags 
OK ? Branch on directive ok 

i If group global event flags already exist* 
r Just display message and continue 

CMP *nSWr#IE»RSU ? Check for efs already 

? in existence 
ERR1 i Branch on any other 

r dir error 
<GR0UP GLOBAL EVENT FLAGS ALREADY EXIST> 
<CLEAR AND THEN WAIT FOR EF 65. TO BE SET> 
r Clear event flag 65* 
r Branch on directive 
? error 



OK 



BCC 



BNE 

TYPE 
TYPE 
CLEF$C 65* 
BCS ERR2 
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SOLUTION 



51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 



WTSE$C 

BCS 

TYPE 
EXIT*S 
* AST Service 

rexast: type 



65* * Wait for event flag 65 

* to be set 

ERR3 * Branch on directive 

* error 

<EF 65. HAS BEEN SET ♦ WFLAG WILL NOW EXIT.' 



routine 
<WHY ME? 



NOT THIS TIME! ! 2 



ERR3 : 
ERR2 I 
ERR1 ** 
ERRO : 



ASTX*S 
INC 

INC 

INC 

MOV 



IOT 
♦ END 



RO 
RO 
RO 

$DSW*R1 
START 



* *EX 

Type message 

* *EX 

AST exit to return **EX 
RO ~ 3 if error on 
wait for dir 
RO - 2 if error on 

clear flag dir 
RO = 1 if error on 

create group flags dir 
Place DSW in Rl * leave 

R0~0 for specify **EX 

requested exit AST err 
Trap and dump registers 



1 PROGRAM WFLAG 

2 C 

3 C FILE L.EX25 ♦ FTN 

4 C 

5 C Modified to include a Reauested Exit AST ! ! EX 

6 C 

7 C This task creates the group global event flags * and 

8 C then clears event flag 65 ♦ and waits for it to be set* 

9 C When the flag is set? it writes a message and exits 

10 C 

11 C Install and run instruct ions J 



12 C 

13 C Run WFLAG * then run SFLAG* At least one of the 

14 C tasks must be installed* or else the RUN command 

15 C will try to install both tasks under the same 

16 C name (TTnn) 

1 7 C 

18 EXTERNAL REXAST ! ! EX 

19 C Set up Reauested Exit AST ! ! EX 

20 CALL SREA < REXAST * I DSW ) M EX 

21 IF <IDSW .LT* 0) GOTO 950 ! ! EX 

22 WRITE (5yl0) 

23 10 FORMAT (' WFLAG IS CREATING THE GROUP GLOBAL EVENT FLAGS') 

24 CALL CRGF ( * I DSW) 

25 IF (I DSW ♦LT* 0) GOTO 900 

26 15 WRITE (5*20) 

27 20 FORMAT (' CLEAR AND WAIT FOR EF 65* TO BE SET') 

28 CALL CLREF (65* I DSW) 

29 IF (IDSW *LT* 0) GOTO 1100 

30 CALL WAITFR (65* IDSW) 

31 IF (IDSW ♦ LT ♦ 0) GOTO 1200 

32 WRITE (5*30) 
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33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61. 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 



30 FORMAT (' EF 65. HAS BEEN SET ♦ FWAIT WILL NOW EXIT') 

CALL EXIT 
Error processing 



C 
C 

C Check 
900 



for code of - 
IF <IDSW ♦ NE ♦ 
C In that C3sey Just 

WRITE (5*910) 
910 FORMAT (' GROUP 

GOTO 15 

C Here for fatal errors* display 
950 WRITE (5*960) IDSW 

960 FORMAT (' DIRECTIVE 

1 DSW = '*I5) 
CALL EXIT 

WRITE (5*1010) IDSW 
FORMAT ( ' DIRECTIVE 
1EF"S. DSW = ' *I5) 
CALL EXIT 

WRITE (5*1110) IDSW 
FORMAT (' DIRECTIVE 
1 DSW = '*I5) 
CALL. EXIT 

WRITE (5*1210) IDSW 
FORMAT (' DIRECTIVE 
1 65* DSW = '*I5) 
CALL EXIT 
END 



17* meaning flags already exist 

-17) GOTO 1000 
d is. law a message and continue* 

GLOBAL EVENT FLAGS ALREADY EXIST') 

message and 



ERROR SETTING UP 



exit 

! !EX 
AST ROUTINE* 
! !EX 
! !EX 



1000 
1010 



1100 
1110 



1200 
1210 



SUBROUTINE REXAST 



AST service routine 



INTEGER PL I ST (6) *IOWVB 

REAL TEXT1 (6) *TEXT2(7) 

DATA IOWVB/" 11000/ 

DATA TEXT1 / ' TRY I ' * 'NG ' 

l'ORT '*'ME '*'EH? '/ 

DATA TEXT2 /'WE W'*'ON"T'* 

1' YOU' * ' THI ' * ' S TI' * 'ME! 
C Set up for QIO directive 

CALL GETADR(PLIST ( 1 ) *TEXT1 ( 1 ) ) 

PL 1ST (2) - 23 

PLIST(3) = "40 
C Use QIO directive to display text 

CALL WTQI0< IOWVB* 5*1* * * PL I ST) 
C Set up for 2nd line of text 

CALL GET ADR ( PL I ST ( 1 ) *TEXT2(1 ) ) 

PLIST(2) =27 
C Use QIO directive to display text 

CALL WTQI0(I0WVB*5*1* * *PLIST) 

RETURN 

END 



ERROR CREATING GROUP GLOBAL 



ERROR CLEARING EVENT FLAG 65* 



ERROR WAITING FOR EVENT FLAG 



EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 

'0 AB' * ! !EX 

EX 

' LET' * ! !EX 

'/ MEX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 



18 



Directives 



SOLUTION 



6. 



3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
.1.7 
18 
19 

20 
21 

23 
24 
25 

26 
27 
28 
29 
30 
31 

32 
33 
34 
35 
36 
37 
38 
39 



♦ TITLE SST 

♦ IDENT /Ol/ 
♦ENABL LC 

y 

? FILE LEX26*MAC 



r Enable lower case 



t Modified to include an odd address trap 



!EX 



y This task sets up an SST vector table to handle SST's 

? for BPTy I0Ty and odd address traps* It then executes 

y instructions to cause these traps to occur* In each 

5 SST routine y a message is displayed and then the task 

y continues* Finally? a TRAP instruction is executed* 

.» Since no user SST routine is specified for TRAF'y the 

? Executive aborts the task* 

5 Assemble and task-build instructions* 

I MACRO/LIST LB* CI ? 1 .1PR0GMACS/LIBRARY y dev J Cuf d3LEX26 

y LINK/MAP LEX26yLBJ CI y 1 3PR0GSUBS/LIBRARY 



♦ MCALL 
♦ MCALL 

Or able: ♦word 



SVTK$CyEXIT*S 
TYPE 



External 
External 



system macros 
supplied macro 



ODDTRP y MPT v" 10 y BPT y I0T 



SST 



start: SVTK*C VTABLEy4 
BPT 

TST 1 



new: 



CLR 



I0T 

EXIT$S 
TRAP 



120000 



vector table 
y y EX 

Have Executive set up 
SST table 
BPT instruction 
Test location ly ??EX 
causing an odd y?EX 

addr trap y ? EX 

Clear location 120000? 
causing a memory 
protect violation 
I0T instruction 
Exit 

TRAP instruction 
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40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 

53 
54 
55 
56 

57 
58 



y SST routines 
GDDTRP ♦ TYPE 
RTI 

MPTVIO: TYPE 

CMP 
TST 

RTI 

BPT* TYPE 
RTI 

iot: TYPE 
MOV 



RTI 
♦ END 



<ODD ADDRESS TRAP CAUGHT^ 



<MEMORY PROTECT 

<SP>+» <SP)+ 
<SP> + 



<BPT CAU6HT> 

<IOT CAUGHT.:- 
#NEW 9 < SP ) 



START 



Type i i EX 
i message i J EX 
r Return from trap ?JEX 
VIOLATION CAUGHT> ? Type 
message 
Clean off three 
specific stack words 
for memory protect SST 

Return from trap 
Type message 
Return from trap 

Type message 
Change PC on stack so 
return from trap 

returns to NEW 
Return from trap 
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Using the QIO Directive 



TEST/EXERCISE 



1. Modify SYNCHQ or ASYNCQ to write prompting text (e.g., " TYPE 
SOME TEXT: ") before issuing the read. 

2. In MACRO-11, modify NUMER, replacing the error handling code 
with code which writes out an error message plus the 
appropriate status code. Refer to SYNQER for sample error 
messages . 

3. Modify NOECHO to use one QIO directive to both write the 
prompt and read the input. Also, have the read timeout if no 
key is struck for 20(10) seconds, in which case, display a 
timeout message and exit. 

4. Write a task which prints a message on every terminal in the 
system. The task should break through any pending I/O at the 
terminal. (Note: This task must be task-built as a 
privileged task, using the /PRIVILEGED : qualifier in the 
task-build command; /PR:0 in MCR) 
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l. 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 

21 
?i 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



♦ TITLE SYNCHQ 

♦ I DENT /Ol/ 
♦ ENABL LC 



y Enable lower case 



FILE LEX31.MAC 



Modified to display prompting text 



EX 



This task reads a line of text from the terminal ? 
converts all upper case characters to lower case? and 
prints the converted message back at the terminal* It 
uses synchronous QIO directives* 



IOSB: 
BUFF : 
PRMPTJ 
LPRMPT 



start; 



loop: 



♦ MCA LI... QI0W*C f QI0W$S y EXIT*S 



y External system 
y macros 



♦ BLKW 

♦ BLKB 
♦ASCII 
=*-PRMPT 

♦ EVEN 



2 y I/O Status Block 

80* t Text buffer 

/TYPE SOME TEXT: / 5 Prompt 

y Length of prompt 



y y EX 
y y EX 
y y EX 



CLR 
CLR 



R5 
R4 



QI0W*C I0*WVBy5yly ylOSB 



BCS 

TSTB 

BLT 

QI0W*C 

BCS 
TSTB 
BLT 
MOV 

CLR 

CMPB 



BLT 

CMPB 

BGT 

y Here if upper 
M0VB 
ADD 
M0VB 



ERR3 
IOSB 
ERR3A 

I0*RVBy5yly 

ERR1 
IOSB 
ERR1A 
I0SB+2yR0 

Rl 

BUFF(Rl) y#"i 
NEXT 

BUFF(Rl) t*' 
NEXT 

casey move 
BUFF(R1 ) yR2 
#32* yR2 
R2yBUFF(Rl ) 



IOSB 



Z 

to 



Error Count 

Error indicator ~ 

means directive error 

(DSW in R3)y neg 

means I/O error 

(I/O status in R3> 
- <PRMPTy LPRMPT y40> 
Display prompt yyEX 
Branch on dir error? r EX 
Check for I/O erroryJEX 
Branch on I/O error? ?EX 
■<BUFFy80*> y Issue 
y read 
Branch on dir error 
Check for I/O error 
Branch on I/O error 
Get count of characters 

typed in 
Offset into buffer to 

character 
Check for upper case 

ASCII character 
Branch if below range 



Branch if above range 
register R2 and convert 
Move to register 
Convert to lower case 
Replace in message 
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UCYT * 


TMP 


p 1 




Increment offset into 


53 








i 


buffer to next char 


54 




SOB 


ROfLOOP 


f 


Decrement count of 


55 








f 


characters left to chect 


56 




QI0W*S 


#IQ*WVBr#5r#l.r 


r #IOSBr t <#BUFFy IOSB+ 2 > #40> 


57 








i 


Write text 


58 




BCS 


ERR2 




Branch on dir error 


59 




TSTB 


IOSB 


f 


Check for I/O error 


60 




BLT 


ERR2A 


9 


Branch on I/O error 


61 




EXIT$S 




y 


Exit 


62 


? 










63 


? Error 


code 








64 


i 










65 


ERR3A : 


INC 


R5 




R5=3 means Prompt QIO 


66 










error f r EX 


67 


ERR2A ♦ 


INC 


R5 




Up error count - 2nd QIO 


68 


ERR1 A ♦ 


INC 


R5 




- 1st QIO 


69 




MOVB 


I0SB?R3 




I/O error* I/O status 


70 










to R3» 


71 




DEC 


R4 




Negative value in R4 


72 










means I/O error 


73 




IOT 






Trap and display 


74 










registers 


75 


ERR3J 


INC 


R5 




R5-3 means Prompt QIO 


76 










error i * EX 


77 


ERR2J 


INC 


R5 




Up error count - 2nd QIO 


78 


ERR1 : 


INC 


R5 




- 1st QIO 


79 




MOV 


*DSW*R3 




Directive error* DSW 


80 










to R3* leave R^^O* 


81 




IOT 






Trap and display 


82 










registers 


83 




♦ END START 
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Using the QIO Directive 



SOLUTION 



1 

X 




2 


r 


-7 
\5 




4 


C 


c i 
\J 


r 


6 


C 


7 


c 


8 


c 


9 


c 


10 


c 


11 


c 


12 


c 


13 




14 




15 




16 




17 




18 




19 




20 




21 


c 


22 




23 


c 


24 




25 




26 




27 


c 


28 




29 




30 




31 




32 




33 


c 


34 




35 




36 


c 


37 




38 


c 


39 




40 


c 


41 




42 


c 


43 




44 




45 


50 


46 


c 


47 




48 


c 


49 




50 


c 


51 





PROGRAM ASYNCQ 



FILE LEX31.FTN 



Modified to display prompting text 



! !EX 



This program reads a line of text from the terminal t 
converts any upper case characters to lower case and 
prints the converted message back at the terminal* 
It uses asynchronous GIOs and an event flag for 
synchronization* 



BYTE I0SB<4) f IBUF(80) 
DIMENSION IPAR(A) fK<10) 
EQUIVALENCE ( NUM r I0SB ( 3 ) ) 
REAL PRMPT(4) 

PRMPT /'TYPE' j 
I0WVB/" 11000/ 
I0RUB/" 10400/ 
IvTC/MO/ 

for the QIO 



0M' f 'E TE ' * 'XT: 



DATA 
DATA 
DATA 
DATA 
Set up values 
I UN IT ^5 

Set up for QIO to issue prompt 

CALL GET ADR ( I PAR ( 1 ) t PRMPT ( 1 ) ) 
IPAR(2)=16 
IPAR(3>="40 
Issue asynchronous write 

CALL Q 1 ( 1 W MB y 1 UN I T y 5 9 , 1 OSB y I P AR y I DS ) 
IF (IDS ♦ LT* 0) GOTO 780 
CALL WAITFR<5>IDS) 
IF (IDS ♦ LT ♦ 0) GOTO 785 
IF (I0SB(1) ♦ L T ♦ 0) GOTO 790 
Set up for read 
IPAR<3)=0 
l'PAR(2)==80 
Get the address of the I/O buffer 

CALL GET ADR ( I PAR ( 1 ) y IBUF ( 1 ) ) 
Issue the QIO 

CALL Q 1 ( I OR VB 1 1 UN I T , 5 v , I OSB 1 1 P AR r I DS ) 
Check the directive status 

IF (IDS »LT ♦ 0) GO TO 800 
Do some work while I/O operation is 
DO 50 1=1 f 10 
K(I)=64*I 
CONTINUE 

Wait for I/O to complete 
CALL WAITFR(5rIDS> 
Check directive status 
IF (IDS »LT* 0) GO TO 805 
Check the I/O status 

IF (IOSB(l) ♦LT* 0) GO TO 810 



! !EX 
' / ! ! EX 



EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 
EX 



being performed 
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52 C Convert to lowercase 

53 DO 100 I==lyNUM 

54 IF <IBUF<I) .LT. 'A') GO TO 100 

55 IF <IBUF<I) *GT* "132) GO TO 100 

56 IBUF(I)=IBUF<I)+32 

57 100 CONTINUE 

58 C Set up I/O Parameter List for write 

59 IPAR<2)=NUM 

60 IPAR(3)-~=IVFC 

61 C Write the converted line to the terminal 

62 CALL Q 1 < 1 OWVB y I UN I T ? 5 y y I OSB y I PAR y I DS ) 

63 C Check directive status 

64 IF < IDS J-T, 0) GO TO 820 

65 C Wait for the I/O to complete 

66 CALL WAITFR<Sf IDS) 

67 C Check directive status 

68 IF < IDS *LT. 0) GO TO 825 

69 C Check the I/O status 

70 IF (I0SB<1) ♦ LT ♦ 0) GO TO 830 

71 GO TO 850 

72 780 WR I TE < 5 y 880 ) I DS ! ! EX 

73 GO TO 850 ! ! EX 

74 785 WRITE(5y885)IDS HEX 

75 GO TO 850 ! ! EX 

76 790 WRITE(5y890)I0SB<l) MEX 

77 GO TO 850 ! ! EX 

78 800 WRITE(5y900)IDS 

79 GO TO 850 

80 805 WRITE (5y 905) IDS 

81 GO TO 850 

82 810 WRITE(5y910)I0SB(l) 

83 GO TO 850 

84 820 WRITE(5y920)IDS 

85 GO TO 850 

86 825 WRITE(5y925)IDS 

87 GO TO 850 

88 830 WRITE(5y930)10SB(l) 

89 850 CALL EXIT 

90 880 FORMAT < ' DIRECTIVE ERROR ON WRITE OF PROMPT y ! ! EX 

91 1 CODE = ' yI4) MEX 

92 885 FORMAT < "DIRECTIVE ERROR ON WAIT FOR WRITE OF MEX 

93 lPROMPTy CODE * 'yI4> MEX 

94 890 FORMAT (' I/O ERROR ON WRITE OF PROMPT y CODE ~ ! ! EX 

95 1 ' ,14) ! !EX 

96 900 FORMAT ( ' DIRECTIVE ERROR ON READ? CODE * ',14) 

97 905 FORMAT <' DIRECTIVE ERROR ON 1ST WAIT y CODE = 'yI4) 

98 910 FORMAT ( ' I/O ERROR ON READy CODE = "yI4) 

99 920 FORMAT <' DIRECTIVE ERROR ON WRITE y CODE «.'fI4) 

100 925 FORMAT < ' DIRECTIVE ERROR ON 2ND WAIT y CODE = '»I4) 

101 930 FORMAT < ' I/O ERROR ON WRITE* CODE * 'yI4) 

102 END 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



♦ TITLE NUMER 

♦ I DENT /01/ 
♦ ENABL LC 



? Enable lower case 



FILE LEX32*MAC 



Modified to include error message code 



r r EX 



This task does a simple addition and outputs the 
results* It demonstrates the use of $EDMSG for 
formatting messages with numeric data 



r Data 

a: 



♦ MCALL 
♦ MCALL 
♦NLIST 



♦ WORD 

♦ WORD 

♦ BLKW 



GIOW$yEXIT$SyDIR* y System macros 
QI0W*S f System macros y?EX 

BEX r Do not list binary 

r extensions 



10 



r 1st addend and start 
r of argument block 

r 2nd addend 

r Location for sum 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



OUT! Q.I0W* I0*WVBy5yly ylOSBy y<BUFy y40> J QIO for 

y output message 
I0SB: .BLKW 2 ? I/O status block 

? 

? Set up for *EDMSG 



but: 
fmes: 



♦ BLKB 
♦ASCIZ 



r Set up for error 

♦ EVEN 
arg: .BLKW 
fmtid: »asciz 

FMTli: *ASCIZ 

♦ EVEN 



80* t Output buffer 

/%l'U WAS ADDED TO %D.y GIVING %D*/ 
y Format string 
messages using $EDMSG y?EX 

f ? EX 

1 r Argument block? rEX 

/DIRECTIVE ERROR ON WRITE » DSW = ZD/ yJEX 
'I/O ERROR ON WRITE r I/O STATUS « %D'??EX 

yyEX 



♦ LIST 

♦ EVEN 
START : MOV 



Set 



BEX 5 List binary extensions 

5 Move to word boundary 

AyC r Move 1st addend to sum 

9 word 

ByC y Add 2nd addend to form 

9 sum 

? Addr of output buffer 

y Addr of format string 

9 Mdr of argument block 

9 Make call y character 

y count returned in Rl 



ADD 



up for call to *EDMSG 
MOV #BUFyR0 
MOV #FMESyRl 
MOV #A y R2 

CALL $EDMSG 
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51 
52 
53 
54 
55 
56 
57 
58 
59 
AO 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 



MOV 



DIR* 

BCS 

TSTB 

BLT 

EXIT*S 
Error code 



ERR II 



err in: 



MOV 

MOVB 
MOM 



BR 

MOV 

MOM 



Rl yOUT+Q» IOPL+2 9 Place # of characters 

9 to write into IOPL 

9 in QIO DPB 

♦OUT f Write output message 

ERR ID 9 Branch on dir error 

I0SB y Check for I/O error 

ERR1I 9 Branch on I/O error 



♦FMTllyRl 

IOSBrRO 
ROr ARG 



EDAWT 
♦FMTlDyRl 
#*DSWy ARG 



y Finish setting up for $EDMSG 
EDAWT ♦ MOV #BUFyR0 

MOV #ARGyR2 

CALL *EDMSG 

GI0W*S #I0>WVBy*5y*l y y y 

EXIT*S 

♦ END START 



Format string for yyEX 
1st I/O error message 

Extend sign on I/O yyEX 
status byte by moving? yEX 
it through RO to the y?EX 
argument block yyEX 

Branch to common edityyEX 
and write code yyEX 

Format string for 1st? yEX 
directive error yyEX 

Move DSW to arg block? yEX 

9 yEX 

Output buffer 3ddressyyEX 
Argument block address* yEX 
Edit output string yyEX 
<#BUFyRly#40> y Write ? y EX 
out message yyEX 
Exit y$EX 
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3. 



4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦ TITLE NO-ECHO 

♦ I DENT /Ol/ 

♦ENABL LC * Enable lower case 

FILE LEX33*MAC 

Modified to combine QIOs 3nd include timeout yyEX 

This task writes a prompt and then issues a QIO to read 
from the terminal without echo* It then displays the 
word which was entered* 

Assemble and task-build instructions J 

MACRO/LIST LBiCly 1 .IPROGMACS/LIBRARY y dev : Cuic3LEX33 
LINK/MAP LEX33 y PRQGSUBS/LIBRARY 

♦MCALL EXITSSy QI0W$C y QI0W*S y System macros 
♦MCALL DIRERR y I0ERR y Supplied macros 

r Data 



MES i 
LEN 

buff: 

BLEN 

buf: 

TMOMS ♦ 
LTMOMS 

iosb: 
lent: 



♦NLIST 
♦ASCII 
♦ASCII 



BEX 



y Don't list of binary 
J extensions 



/SECRET WGRDJ / y Prompt messes$e 
♦ -MES i Length of prompt 

<15>/N0 LONGER A SECRET WORD* / 

? Preceding remark 
~ *~BUFF 5 Length of Remark 

♦BLKB 80* y Input buffer 

♦ASCII /READ TIMED OUT/ y Timeout message yyEX 
= ♦ -TMOMS yyEX 
♦EVEN y Word alisn for IOSB 

♦WORD y IOSB is broken into 

♦WORD y two parts for 

< y convenience ♦ 

y Define functions locally to allow us of an assignment 
y statement to shorten directive statement 
10* RPR =004400 y Define functions 

=20 ? 
==200 ? 

=<IO»RPR!TF*RNE!TF*TMQ> y QIO function code 
♦LIST BEX y List binary extensions 



TF ♦ RNE 
TF ♦ TMO 
I0.FNC 



Code 



START! 



QI0W*C I0»FNCy5yly ylOSBy y<BUFy80, y 2 y MES y LEN y 44> 

y Issue read 3fter yyEX 
y p rompt 5 y EX 

BCS DERR1 y Branch on dir error 
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Using the QIO Directive 



SOLUTION 



51 TSTB IOSB J Check for I/O error 

52 BLT IERR1 ? Branch on I/O error 

53 CMPB IOSB>#IS»TMQ r Check for timeout HEX 

54 BNE NOTIMO ? Branch if no timeout EX 

55 QIQU4C I0*WVB>5*1> rIOSBr »<TMQMS»LTMQMS>40> rrEX 

56 BCC DIR40K t Branch on dir ok - HEX 

57 $ need this* too far HEX 

58 y for branch 

59 JMP DERR4 i Jump on dir error 5? EX 

60 DIR40K: TSTB IOSB ? Check for I/O error ?»EX 

61 E<LT IERR4 ? Branch on I/O error J?EX 

62 EXIT*S i Exit ?>EX 

63 NOTIMO: MOY LENT»R0 ? Get length of input HEX 

64 ADD #BL.ENyR0 5 Add length of remark 

65 QI0W*S #ia*WVB>#5**l> »#I0SBr > <#BUFF r RO r *40> 

66 5 Write out text 

67 BCS DERR3 ? Branch on dir error 

68 TSTB IOSB » Check for I/O error 

69 BLT I ERR 3 r Branch on I/O error 

70 EXIT*S ? Exit 

71 t 

72 i Errors come here 

73 ? 

74 IERR1J IOERR #I0SB»<Error on READ AFTER PROMPTS HEX 

75 ? Display message and 

76 IERR3 ♦ IOERR #I0SB> <Er ror on 2nd WRITE> v exit 

77 IERR4* IOERR *I0SB * <Er ror writing timeout message.- ? ?EX 

78 DERRlt DIRERR <Error in QIO or. READ AFTER PR0MPT> 5 ?EX 

79 ? Display dir message and 

80 DERR3 * DIRERR <E.rror in QIC) on 2nd WRITE.':- r exit 

81 DERR4* DIRERR (Error writing timeout message> ??EX 

82 ♦ END START 
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Using the QIO Directive 



SOLUTION 



1 






PROGRAM N0ECH0 




2 
3 


C 
C 


File 


LEX33.FTN 




4 


c 








5 
6 


c 
c 


Modified to use read after prompt and to timeout HEX 


7 


c 


This 


task prompts for input » reads it without echo and 


8 


c: 


then 


skips to the next line and display 


s the input 


9 


c 


text 


and exits* 




10 


c 








11 






BYTE BUFF<80> >I0SB<4> rCR(l) 




12 






INTEGER PARM(6) 




13 






REAL PR0MPT(4) » 


Prompt ! ! EX 


14 


c 








15 






DATA I0FNC /"4620/ ! 


QIO ! !EX 


16 


c 




i 


function ! ! EX 


17 


c 




j 


code ! ! EX 


18 






DATA ISTMQ /2/ ! 


Timeout ! ! EX 


19 


c 




I 


status ! .' EX 


20 






DATA CR /"15/ ! 


Carriage return char 


21 






DATA PROMPT / ' SECR ' » " ET W ' ? ' ORD f ' r ' ' / 


22 


c 




! 


Text H EX 


23 


c 


Set up the 1/0 parameter list 




24 






CALL GETADR ( PARM ( 1 ) t BUFF ( 1 ) ) ! 


buffer address 


25 






PARM(2) = 80 ! 


Buffer length 


26 






PARM (3) = 2 ! 


Timeout : = 2 ! ! EX 


27 


c 




i 


* 10 sec ! !EX 


28 






CALL. GETADR ( PARM ( 4 ) , PROMPT ( 1 ) ) .» 


Prompt addr ! ! EX 


29 






PARM(5) = 13 ! 


Prompt length!! EX 


30 






PARM(6) - "44 ! 


Vertical ! ! EX 


31 


c 




i 


format contrMEX 


32 


c 


Issue 


read no echo? read after prompt t 


with timeout !!EX 


33 






CALL WTO 10' ( I0FNCy5y 1 ? r IOSByPARMr 


IDS) 


34 






IF < IDS ♦LTV 0) GO TO 100 ! 


Dir error? 


35 






IF <I0SB<1) A.T* 0) GO TO 110 ! 


I/O error? 


36 


c 


Check 


for timeout 




37 






IF (IOSB(l) ♦ NE ♦ ISTMO) GOTO 1 ! 


Branch if no ! ! EX 


38 


c 




i 


timeout ! ! EX 


39 






TYPE *»'READ TIMED OUT ' ! 


Display ! ! EX 


40 


c 




i 


message ! ! EX 


41 






CALL EXIT ! 


and exit ! ! EX 


42 


1 




WRITE <5,2) CRf (BUFF(I) , I = lyI0SB<3> ) ! Echo input 


43 


2 




FORMAT <' 'yAlr'NO LONGER A SECRET WORD: ' r 80A1 ) 


44 






CALL EXIT 




45 


c 








46 


c 


Error 


conditions 




47 


c 








48 


100 


TYPE *r 'DIRECTIVE ERROR ON READ* 


STATUS ---- ' >IDS 


49 






CALL EXIT 




50 


110 


TYPE *? M/0 ERROR ON READ* CODE 


= 'ylOSB(l) 


51 






CALL EXIT 




52 






END 
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Using the QIO Directive 



SOLUTION 



4. 1 ♦TITLE LEX34 

2 ♦ I DENT /Ol/ 

3 »ENABL LC y Enable lower case 

4 yf 

5 y FILE LEX34,MAC 

6 y 

7 y Solution to Module 3y L3b Exercise 4 

8 ; 

9 y Task does a write breakthrough to all terminals* 

10 ? 

11 y Assemble and task-build insruct ions ♦ 



12 ? 

13 J >MACRO/LIST LB? CI ? IZIPROGMACS/LIBRARYydevi Cuf d.1- 

14 .? ->LEX34 

15 ? >LINK/MAP/PRIUILEGED:0 LEX34yLB:Clyl3PR0GSUBS/~ 

16 f ~>LIBRARY 
17 

18 ♦ MC.ALL ALUN*yQIOW*yDIR*yEXIT*S 

19 ♦MCALL DIRERR ylOERR 

20 BUFF" * ♦ASCII /HELLO THERE/ 

21 LEN = ♦-BUFF 

22 ♦ EVEN 

23 IOSB: •BLKW 2 ? I/O status block for QIO 

24 ALUN: ALUN* 4yTTyO i DPB to assign to TTOty 

25 y will modify for others 

26 QIO: QIOW* I0»WLB!TF*WBT!TF,RCUy4yly ylOSBy y<BUFFyLENy40> 

27 y 

28 ♦ ENABLE LSB 

29 START? MOV #ALUNyR0 ? RO ~> DPB for ALUN* 

30 MOV #010 yRl y Rl «> DPB for QIOW* 

31 BRO: DIR* RO y As si an LUN 

32 DCS ALFA I L. y If ALUN* failed 

33 DIR* Rl ? Type message at TTni 

34 BCC 1* y If I/O was Queued OK 

35 DIRERR <ERR0R ON QI0W*> 

36 1*: CMPB *IS ♦ SUC y IOSB y Did I/O succeed? 

37 BEQ 2* ? Yes 

38 I0ERR #I0SBy<ERR0R ON QI0W*> 

39 2*: INC A*LUNU(R0> ? Next terminal 

40 BR BRO 

41 y 

42 ? Error from ALUN 

43 ALFAIL.: CMP #IE*IDUy*DSW ? Did it fail because of 

44 ? illegal unit *? 

45 BNE 3* y Noy some other error 

46 EXIT*S ? Yes* Must have passed 

47 y the last terminal 

48 3*: DIRERR <ERR0R ON ALUN*>? Other error 

49 ♦ END START 
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Using the QIO Directive 



SOLUTION 



1 PROGRAM LEX34 

2 Cf 

3 C FILE LEX34 ♦ FTN 

4 C 

5 C Solution to Module 3> Lab Exercise 4 

6 C 

7 C Task does 3 write breakthrough to all terminals* 

8 C 

9 C Task-build with /PRIVILEGED :0 Qualifier 



10 C- 

11 INTEGER TTUNITfDSW 

12 DATA TTUNIT/0/ ! First output to TTO ♦ 

13 INTEGER PARAM ( 6 ) t I0SB < 2 ) 

14 BYTE SUCCOD < 2) ' ! I/O success codes 

15 EQUIVALENCE ( SUCCOD t I0SB ) ! First bytes of I0SB 

16 INTEGER IEIDU ! Mnemonic for "Illegal 

17 DATA IEIDU/- 99/ • Device or Unit" DSW code 

18 INTEGER I0FCOD ! I/O function code ' 

19 C ! mnemonic 

20 DATA I0FC0D/-501/ ! Write logical block r 

21 C ! write breakthrough » 

22 C ! and restore cursor 

23 C 

24 C Load parameter list 

25 CALL GET ADR < PARAM < 1 ) t ' HELLO THERE ' ) 

26 PARAM < 2 ) = 11 ! Length of string 

27 PARAMO) = "40 ! Blank for carr* Ctrl* 

28 10 CALL ASNLUN<4» 'TT' > TTUNIT r DSW > ! Assign LUN 4 to 

29 C ! TTn \ 

30 IF (DSW*LT*0) GOTO 900 

31 CALL WTGI0(IQFC0D»4*1» »I0SB> PARAM r DSW) 

32 IF <DSW*LT*0) GOTO 910 ! Directive error 

33 IF (SUCCOD(l) *NE*1) GOTO 920 ! I/O error 

34 TTUNIT = TTUNITf 1 

35 GOTO 10 

36 C 

37 C Error from ASNLUN* If ASNLUN failed because of illegal 

38 C unit number* must have passed the last terminal* Exit* 

39 900 IF (DSW* EG* IEIDU) CALL EXIT 

40 TYPE 905 * DSW ! Other error 

41 905 FORMAT (' ERROR ON ASNLUN* DSW = 'yI6) 

42 CALL EXIT 

43 910 TYPE 915yTTUNIT>DSW 

44 915 FORMAT (' DIRECTIVE ERROR ON QIO TO TT'r02>':'/ 

45 1 ' DSW * ' yI6) 

46 CALL EXIT 

47 920 TYPE 925 y TTUNIT » SUCCOD (2) r SUCCOD ( 1 ) y I0SB (2) 

48 925 FORMAT (' I/O ERROR ON QIO TO TT'y02y'*'/ 

49 1 ' I/O STATUS BLOCK = 'yI4»' »M4»' /'»I6) 

50 CALL EXIT 

51 END 
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Using Directives for Intertask Communication 



TEST/EXERCISE 



Modify RECV1 and SEND1 to synchronize using Suspend and Resume 
directives instead of event flags. 

Modify RECV2 so that the display includes the name of the 
sending task in addition to the data. 

Write another sender task to send data to RECV2. Modify the 
receiver so that it receives data from your task only, not 
from SEND2. 

Modify SPAWN so that it spawns CLI..., MCR..., or ...DCL 

several different times and sends a different MCR or DCL 
command line each time. Display the exit status after each 
command executes. 

Write a parent task and an offspring task. Have the parent 
spawn the offspring. Have the offspring emit status to the 
parent every five seconds for 30 seconds and then exit. Have 
the parent display each status value. Optional: Use an AST 
routine in the parent for synchronization. 
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Using Directives for Intertask Communication 



SOLUTION 



l. 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
.1.4 
15 
16 
17 
18 
19 

20 

21 
'?':> 

23 
24 
25 
26 
27 
28 
29 
30 
3.1 
32 
33 
34 
35 
36 
37 

38 
39 
40 
41 
42 
43 
44 



♦TITLE SEND! 
♦I DENT /01/ 
♦ENABL LC 

FILE LEX41A*MAC 



r Enable lower case 



Modified to use Suspend and Resume directives foryfEX 
synchronization r?EX 

This task prompts at TI* for a line of text and sends 
the data to RECV1 for processing* Synchronization is 
handled through a common event flag* 

Assemble and task-build instructions* 

.'.'••MACRO/LIST/OBJECT ♦* SEND1 LB* CI y 1 3PRQGMACS/LI - y y EX 
->BRARY y dev ♦ Cuf d3LEX41 A 

> LINK /MAP SEND1 y LB ♦ C 1 y 1 3PR0GSUBS/LIBRARY 

Install and run instruct ions J RECVl must be installed 
and run prior to running SENB1 ♦ RECV1 continues to run 
until it receives 3 data packets* 

♦ MCALL SDAT*CyEXIT$SyRSUM*C ? System macros* iEX 
♦ MCALL TYPE y INPUT r DIRERR 5 Supplied macros 



buffer: *blkb 

y 

♦ ENABL 

f 

START ♦ * TYPE 

INPUT 

SDAT*C 

BCC 

DIRERR 



26* 
LSB 



r Data buffer to be sent 

i Enable local symbol 
y blocks 



i$: 



RSUM$C 
BCC 

DIRERR 
EXIT$S 
♦ END 



<TYPE A LINE OF TEXT* 26 CHARACTERS OR LESS> 
? Type prompt 

♦BUFFER y #26* y Get text to send 

RECV1 v BUFFER y Send data to RECV1 y?EX 

1* ? Branch on direct vie ok 

<UNABLE TO QUEUE DATA TO RECV1> r Display 

y error message and exit 
RECV1 ? Resume RECV1 yyEX 

5$ y Branch on directive okyyEX 

<UNABLE TO RESUME RECV1> ? yyEX 
y Exit y yEX 

START 
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Using Directives for Intertask Communication 



SOLUTION 



6 
7 
8 
9 
10 

1.1 
12 
13 
14 
15 
16 
17 
13 
19 
20 
21 
22 
23 
24 
2f5 

26 
27 
28 
29 

30 
31 

32 
33 



PROGRAM SEND! 



FILE LEX41A*FTN 

Modified to use 
synchronization 



Suspend and Receive directives for 



! !EX 
! ! EX 



This task prompts 
the data to RECVl 
handled through a 



at II* for a line of text and sends 
for processing* Synchronization is 
common event flag* 



Install and run 
i ns ta 1 led unde r 
running LEX41A* 
receives 3 data 



instructions* LEX41B must he 
the name RECV1 and run prior 
RECV1 continues to run until 
packets ♦ 



to 
it 



!EX 
•EX 
!EX 



10 



BYTE BUFFER (26) 
DATA R.TASK/6RRECU1 / 
Prompt for input 

TYPE *>'TYPE A LINE OF 
RE AH (5y.l0) BUFFER 
FORMAT (26A1) 

CALL SEND < RTASK » BUFFER r , IDSW ) 
IF (IDSW ♦ LT ♦ 0) GOTO 900 
CALL RESUME ( RTASK r IDSW) 

IF (IDSW ♦ L T ♦ 0) GOTO 950 
CALL EXIT ! 



! Receiver task 

TEXT* 26 CHARACTERS 
! Read text 



OR LESS' 



C Error 
900 

950 



! Branch 
! Resume 

! Branch 
Exit 



! Send data ! ! EX 
on dir error 
RECV1 ! !EX 
on dir err ! ! EX 



code 
TYPE 
CALL 
TYPE 

CALL 
END 



* > 'UNABLE 
EXIT 

*» 'UNABLE 
EXIT 



TO QUEUE DATA TO RECV1. DSW 
TO RESUME RECvl. DSW ■ 



t IDSW 
! !EX 



' t IDSW 
! !EX 
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Using Directives for Intertask Communication 



SOLUTION 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



y + 



♦ TITLE RECV1 

♦ I DENT /01/ 

♦ENABL L.C 5 Enable lower case 

FILE LEX41EUMAC 

Modified to use Suspend and Resume for synchronization y y EX 

This task and receives data from any sender task 
(e*g*y SENDl)*l't prints the data on Tit* Then it 
waits for another data packet* It does this until it 
has received 3 messages and then exits* 

This task synchronizes with its sender through an 
event flag* 

Assemble and task-build instructions* 

>MACR0/L I ST/OBJECT « RECV 1 LB : L" 1 1 1 1 PR0GMACS/L IB- ? ? EX 
->RARY»dev:Cufd3RECVl 9 5 EX 

LINK/MAP RECV1 y LB J L" 1 y 1 3PR0GSUBS/LIBRARY 

Install and run instructions* RECV1 must be installed 
and run before running SEND1 ♦ 



♦ MCALL 
♦ MCALL 



rbuff: *blkw 



RCVD$CyEXIT*SySPND$Sy System macros y JEX 
TYPE* DIRERR > Supplied macros 



♦ENABL LSB 



y Receive buffer 

f Enable local symbol 
i blocks 



start: 
again: 



MOV 

SPND*S 

BCC 

DIRERR 



#3 1 R5 



3$ 



f Initialize message 
r counter 

} Suspend self until* y EX 
y message arrives 
? Branch on directive ok 
<SUSPEND DIRECTIVE FAILED.':- y Display yyEX 
y error message and exit 
y We get here when resumed by SEND1 yyEX 
3*: RCVD$C y RBUFF y Receive from anyone 

BCC 5$ ? Branch on directive ok 

DIRERR <RECEIVE DIRECTIVE FAILED IN "RECV1"> 

? Display error message 
y and exit 

y Successful receipt 

5*: TYPE <DATA RECEIVED BY " RECV1 " : > y Display 

y data 



39 



Using Directives for Intertask Communication 



SOLUTION 



51 
52 
53 
54 
55 
56 
57 
58 
59 



TYPE 

DEC 

BNE 

TYPE 
EXIT*S 
♦ END 



*RBUFF+4>#26* 



? Display data sent by 



? sender 

R5 5 Decrement message 

r counter 

AGAIN r If not yet Or set 

f another message 
<"RECV1 " HAS RECEIVED 3 MESSAGES AND WILL NOW EXIT.' 

i Exit after 3 messages 

START 



1 PROGRAM RECV1 

2 C 

3 C FILE LEX41EWFTN ! ! EX 

4 C 

5 C Modified to use Suspend and Receive directives for ! ! EX 

6 C synchronization MEX 

7 C 

8 C This task receives d3ta from LEX41A* It prints 

9 C the d3ta on TIi» Then it waits for another data 

10 C packet* It does this until it has received 3 messages 

11 C and then exits* 

12 C 

13 C This task synchronizes with its sender through an 

14 C event fla£* 

15 C 

16 C Install and run instructions J LEX41B must be MEX 

17 C installed under the name RECV1 and run before running !! EX 

18 C LEX41 A * ! ! EX 

19 C 

20 INTEGER RBUFF(15) ! Receive buffer 

21 C 

22 DO 100 1=1 f 3 

23 10 CALL SUSPND (IDSW) ! Suspend until SEND1 ! ! EX 

24 C ! sends data and resumes 

25 IF (IDSW *EQ» 2) GOTO 20 MEX 

26 TYPE * r ' SUSPEND DIRECTIVE FAILED* DSW = 'yIDSWMEX 

27 GOTO 1000 

28 20 CALL RECEl'V ( 9 RBUFF 9 9 IDSW ) ! Receive from anyone 

29 IF (IDSW ♦ EQ ♦ 1) GOTO 30 

30 TYPE * 9 ' RECEIVE DIRECTIVE FAILED IN 'RECV1". 

31 1 DSW = ' »IDSW 

32 GOTO 1000 

33 30 TYPE * 9 ' DATA RECEIVED BY "RECVl":' 

34 WRITE (5*35) ( RBUFF ( K ) ,K=3 y 15 > 

35 35 FORMAT ( ' 'yl3A2> 

36 100 CONTINUE 

37 TYPE *y '"RECVl" HAS RECEIVED 3 MESSAGES AND WILL 

38 1 NOW EXIT' 

39 1000 CALL EXIT 

40 END 
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Using Directives for Intertask Communication 



SOLUTION 



2. 



4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE RECV2 
♦ IDENT /01/ 
♦ENABL LC 

i 

y FILE LEX42*MAC 



r Enable lower case 
y y EX 



Modified to display the sender task name in addition yyEX 
to the d3ta y y EX 

This task receives data from another task* It prints 
the data* along with a headery on TI** Then it waits 
for another data P3ckety continuing this until it has 
received 3 messages* 

This task synchronizes with its sender using RCST$* 
Because of this synchronization y the tasks can he run 
in any order? with any relative priorities* 



y Assemble and task build instructions* 
? 

y >MACR0/L1ST/0BJECT:RECV2 LB:Clyl3PR0GMACS/LIB~y ?EX 

y ~>RARY t dev ♦ Cuf d3LEX42A yyEX 

y >L INK/MAP RECV2 y LB ♦ C 1 y 1 3PR0GSUBS/LIBRARY 

y 

5 Install and run instructions* RECV2 must be installed* 
y 

♦MCALL RCST$CyRCMD*CyEXIT$S f System macros 



♦ MCALL TYPE y D.I RERR 



rbuff ♦ ♦ blkw 15* 

tasknm: *blkw 3 

y 

* ENABL LSB 



y Supplied macros 

y Receive buffer 

y Buffer for task name r? EX 

y Enable local symbol 
y blocks 



START i MOV 
RECEIV: RCST*C 
BCC 

D I RERR 



#3 y R5 

y RBUFF 
5* 



y Set up message counter 
y Receive from anyone 
y Branch on directive ok 
<RECEIv"E DIRECTIVE FAILED IN "RECV2"> 

y Display error message 
y and exit 

y Successful receipt or unstopped by another task* First 
y check for unstopped after being stopped y in which case 
y we have to receive the data 

5* ♦ CMP $DSWy#IS*SET y Were we stopped due to 

y no data 

5 If not, we have a data 
y packet 

y Now get the packet 
y Branch on directive ok 



BNE 



6$ 



RCUD4C y RBUFF 
BCC 6$ 
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Using Directives for Intertask Communication 



SOLUTION 



51 lURERR <RECEIVE DIR FAILED AFTER " RECV2 " UNSTOPPED> 

52 r Display error message 

53 ? and exit 

54 r Convert task name from Radix~50 to ASCII 

55 6$ J MOV *TASKNNipRO i Address for converted tt EX 

56 ? name ? i EX 

57 MOV RBUFF jf Rl t Word to be converted? JEX 

58 CALL *C5TA ? Convert it HEX 

59 MOV RBUFF+2 P R1 ? Next word to be HEX 

60 ? converted ??EX 

61 CALL *C5TA f Convert it ??EX 

62 TYPE < DATA RECEIVE D BY "RECV2"i> t Display text 

63 TYPE #TASKNM r#6 f Display task name ??EX 

64 TYPE #RBUFFf4,#26* ? 3r.d data sent 

65 * Had to change SOB - too far for branch! r >EX 

66 DEC R5 ? Decrement message ??EX 

67 ? counter J f EX 

68 BEQ DONE r Branch if done ?*EX 

69 JMP RECEIV ? Receive again if not?? EX 

70 i yet 3 messages J? EX 

71 DONE: TYPE <"RECV2* HAS RECEIVED 3 MESSAGES.-- 

72 TYPE <AND WILL NOW EXIT> ? Type exit message 

73 EXIT$S i Exit 

74 . END START 



1 PROGRAM RECV2 

2 C 

3 C FILE LEX42* FTN ! ! EX 

4 C 

5 C Modified to display the sender task name in addition ! ! EX 

6 C to the data ! ! EX 

7 C 

8 C This task receives data from another t3sk (e*g» SEND2)* 

9 C It prints the dat&v along with a header* on TI ♦ ♦ Then 

10 C it waits for another data packet* continuing this 

11 C until it has received 3 messages* 

12 C 

13 C This task synchronizes with its sender using RCST* 

14 C Because of this synchronization? the tasks can be run 

15 C in any order» with any relative priorities* 

16 C 

17 C Install and run instructions J LEX42 must be instal led ! ! EX 

18 C under the name RECV2 ♦ MEX 

19 C 
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Using Directives for Intertask Communication 



SOLUTION 



20 
21 
22 
23 
24 
25 
26 
27 
28 
2? 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 

50 
51 
52 
53 
54 
55 
56 
57 
58 



INTEGER 
INTEGER 
INTEGER 



RBUFF ( 15 ) 
DSW*ISSET 
TASKNMC3) 



DATA ISSET/2/ 



! Receive buffer 

! Buffer for ASCII form!! EX 
! of task nam© ! ! EX 

! DSW code mnemonic 



10 



DO 100r I=i>3 
CALL. RCST ( t RBUFF > DSW ) 
IF <DSW*GE*0) GOTO 50 
Type *> 'RECEIVE DIRECTIVE 
1 DSW = ' t DSW ! 
GOTO 1000 ! 

Successful receipt or unstopped 
check for unstopped after being 
we have to receive the data 

IF (DSW*NE*1SSET> GOTO 60 



! Receive from anyone 



FAILED IN "RECV2" ♦ 
Display error message 

and exit- 
by another task* First 
stopped v in which case 

Were we stopped due 
to no data? If not 
( NE ) i we have a 
data packet 



Stopped due to no data* 

CALL RECE I V < » RBUFF y > DSW ) 
IF (DSW*EQ*1) GOTO 60 
TYPE *r 'RECEIVE DIRECTIVE 
1UNST0PPED* DSW = '>DSW 
GOTO 1000 
Display data 

CALL R50ASC ( 6 r RBUFF y TASKNM ) 

TYPE 75 y TASKNM y ( RBUFF ( J) j J=3y 15) 
FORMAT (' DATA RECEIVED BY " RECV2 " 
lA2ylXy 13A2) 
CONTINUE 
received 3 messages 
TYPE *y ' "RECV2" HA 
1 NOW EXIT' 
CALL EXIT 
END 



60 



100 

C Have 



1000 



! Now get the packet 

AILED AFTER "RECV2" 
Display error 
message a n d e x i t 



! !EX 

! ! EX 
/IX t 3 » !EX 
! !EX 



RECEIVED 3 MESSAGES AND WILL 



! Exit 
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3. 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 

'!>7 

28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



♦TITLE LEX43A 
♦ I DENT /01/ 
♦ENABL LC 

FILE LEX43A*MAC 

A second sender to RECV2 



? Enable lower case 
? ?EX 



This task prompts at TI* a line of text and sends the 
data to task RECV2 for processing* Synchronization is 
handled through RECV2's stop bit* RECV2 will continue 
to run until it receives 3 messages* RECV2 and LEX43A 
may be run in any order* 

Assemble and task build instructions* 

MACRO/LIST LB : CI y 1 3PR0GMACS/LIBRARY y dev : Cuf dl1LEX43A 
LINK/MAP LEX43A y LB X L" 1 y 1 3 P R G S U B S / L I B R A R Y 

Install and run instructions* LEX43B must be installed 
under the name RECV2 



♦ MCALL 
♦ MCALL 

buffer: *blkb 

* ENABL 



START?: TYPE 



SDAT$CyUSTP*CyEXIT*S y System macros 
TYPE r INPUT t DIRERR y Supplied macros 



26* 

LSB 



f Send buffer 

r Enable local symbol 
9 blocks 



i$: 



INPUT *BUFFER r #26 ♦ 

SDAT$C RECV2* BUFFER 

BCC 1* 

DIRERR < UN ABLE TO QUEUE 



USTP$C RECV2 



BCC 
CMP 
BEQ 



CMP 
BEQ 



2$: 



EXIT*S 
♦ END 



<TYPE A LINE OF TEXT 9 26 CHARACTERS OR LESS! 

Display prompt 
Issue read 
Queue data to RECV2 
Branch on directive ok 
DATA TO "RECV2'> 
Display error message 

and exit 
Unstop RECV2 
Branch on directive ok 
Isn't he stopped? 
That ' s ok y he'll pi ck 
up data when he 
executes RCDS$ 
Is he not active? 
If noty he'll pick up 

data when activated 
"RECV2"> J Any other 

error is bad 
Exit 



2$ 

*DSWy#IE*ITS 
2* 



*DSWy#IE*ACT 
2* 



DIRERR <UNABLE TO UNSTOP 



START 
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1 




n 


C 


3 


C 


4 


C 


5 


C 


6 


C 


7 


C 


8 


C 


9 


C 


10 


c 


11 


c 


12 


c 


13 


c 


14 


c 


15 


c 


16 




17 




18 




19 




20 




21 




'yy 


c 


23 




24 




25 


5 


26 




27 
28 




29 




30 


10 


31 




32 




33 


c 


34 


c 


35 


c 


36 




37 


c, 


38 


c 


39 




40 




41 


20 


42 





PROGRAM LEX43A 



FILE LEX43A*FTN 



! !EX 



A second sender task to send data to RECV2 



! ! EX 



This task prompts at Tli for a line of text and sends 
the data to RECV2 for processing* The receiver will 
continue to run until it receives 3 messages* 
Synchronization is handled through RECv"2's stop bit* 
RECV2 and LEX43A may be run in any order* 



Install and run instructions J LEX43B must be 
installed under the name RECv"2* 



! !EX 
! !EX 



BYTE BUFFER (26) 

INTEGER DSW 

REAL RECV2 

DATA RECV2/5RRECV2/ 

INTEGER IEITS y 1EACT 

DATA IEITS y IEACT/--8 y 



! Send buffer 



! Receiving task name 
! Error mnemonics 



-7/ 



TYPE *y ' TYPE A LINE OF TEXT y 26 CHARACTERS OR LESS' 
READ <5y5) BUFFER 
FORMAT <26A1) 

CALL SEND < RECV2 y BUFFER r y DSW ) ! Send data to RECM2 
IF (DSW*EQ*1) GOTO 10 

DATA TO "RECV2 u ♦ DSW « ' 



'UNABLE TO QUEUE 



TYPE * 
1 y DSW 

CALL USTP(RECV2yDSW) ! 
IF <DSW*EQ*1) GOTO ,20 ! 
IF (DSW*EQ*IEITS) GOTO 20 



IF (DSW*EO*IEACT) GOTO 20 

i 
! 

TYPE *y 'UNABLE TO UNSTOP 

I 

CALL EXIT ! 
END 



Unstop RECV2 

Branch on directive ok 

! I s n ' t h e s t o p p e d ? 

That ' s ok y he'll p i ck 

up data when he 

executes RCDS* 
! Is he not active? If 

noty he'll pick up 

data when activated 
■RECV2" ♦ DSW = ' yDSW 
Any other error is bad 
Exit 
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♦ TITLE: RECV2 
. I DENT /<)!/ 
* ENABL LC 

FILE LEX43B*MAC 



i Enable lower esse 



Modified to recieve only from 

note; the task will exit with 
if send2 sends data and unstops 
complicated coding is needed to 
distinguish between task's which 

IT 



* r EX 

LEX43A ??EX 

A NO DATA QUEUED ERROR? J EX 
THE TASK ♦ MORE J J EX 

HAVE THIS TASK i 5 EX 

SEND DATA AND UNSTOP? rEX 

r 9 EX 



This task receives data from another task* It prints 
the data* along with a headerr on TIi* Then it waits 
for another d3ta packet? continuing this until it has 
received 3 messages* , 

This task synchronizes with its sender using RCST$* 
Because of this synchronization)' the tasks can he run 
in any orders' with any relative priorities* 

Assemble and task-build instructions I 

>MACR0/LIST/0BJECTtRECV2 LBiT.1 ylUPROGMACS/LIB-? ?ex 
->RARY r dev : Cuf d3LEX43B f ? EX 

>L INK /MAP RECV2»LB:C1 * 1 IIPROGSUBS/LIBRARY 

Install and run instructions* RECV2 (LEX43B) must foerrEX 
installed under the name RECv*2* ??EX 

♦ MCALL RCST*CfRCVD$C»EXIT$S ? System macros 



♦ MCALL TYPE r DIRERR 

rbuff: *blkw 15* 
♦ enabl lsb 



? Supplied macros 

? Receive buffer 

9 Enable local symbol blocks 



START** MOV #3>R5 
RECEIV: RCST*C LEX43A? RBUFF 



BCC 

DIRERR 



? Set up message counter 

f Receive from Just ??EX 
f LEX43A J J EX 

v Branch on directive ok 
<RECEIVE DIRECTIVE FAILED IN "RECV2"> 

? Display error message 
y and exit 
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47 r Successful receipt or unstopped by another task* First 

48 f check for unstopped after being stopped * in which case 

49 f we have to receive the data 

50 5$: CMP *DSWy#IS*SET 5 Were we stopped due to 

51 ? no data 

52 EfNE 6$ f If notr we have a dat3 

53 i packet 

54 RCVD*C LEX43Ay RBUFF ? Now get the packet 

55 BCC 6$ ? Branch on directive ok 

56 DIRERR <RECEIVE DIR FAILED AFTER "RECV2" UNST0PPED> 

57 r Display error message 

58 ? and exit 

59 6*: TYPE <DATA RECEIVED BY "RECV2":> } Display 

60 r text and 

61 TYPE #RBUFF+4r#26* > data sent 

62 ? SOB RS^RECEIV ? Decrement message 

63 ? counter* Receive 3g3in 

64 i if haven't received 3 

65 i yet 

66 DEC R5 f i EX 

67 BE « DONE HEX 

68 JMP RECEIV HEX 

69 DONE: TYPE <"RECV2" HAS RECEIVED 3 MESSAGES AND WILL NOW EXIT> 

70 i Type exit 

71 i message 

72 EXIT*S 9 Exit 

73 ♦ END START 



1 PROGRAM RECV2 

2 C 

3 C FILE LEX43B*FTN MEX 

4 C • ■ 



5 C Modified to receive only from LEX43A MEX 

6 C NOTE! TASK WILL EXIT WITH A NO DATA QUEUED ERROR IFMEX 

7 C SEND2 SENDS DATA* MORE COMPLICATED CODE IS NEEDED MEX 

8 C TO CHECK FOR SEND2 SENDING DATA AND UNSTOPPING RECV2 M EX 

9 C 

10 C This task receives data from another task (e*g* SEND2)* 

11 C It prints the data^ along with a header t on TIJ* Then 

12 C it waits for another data packet? continuing this 

13 C until it has received 3 messages* 

14 C 

15 C This task synchronises with its sender using RCST* 

16 C Because of this synchronization)' the tasks can be run 

17 C in any order* with any relative priorities* 

18 C 

19 C Install and run instructions: LEX43B must be MEX 

20 C installed under the name RECV2* MEX 

21 C 
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22 


C 








23 






INTEGER RBUFF (15) ! 


Receive buffer 








INTEGER DSWrlSSET 










REAL TASKNM ! 


Task name array !!EX 








DATA TASKNM /6RLEX43A/ ! 


Task name in Radix-50MEX 








DATA ISSET/2/ ! 


DSW code mnemonic 




r 








'■> o 


i, 














DO 100> I = l»3 




O .1. 






CALL RCST-< TASKNM r RBUFF r DSW ) ! Receive from L.EX43A 


X'. - ) 






IF -<DSW.GE»0) GOTO 50 




..... 






Type *, 'RECEIVE DIRECTIVE 


FAILED IN "RECV2" ♦ 


34 






1 DSW = 'yDSW ! 


Display error message 


35 






GOTO 1000 ! 


and exit 




C 








37 


C 


Successful receipt or unstopped 


by another task* First 


tJ w 


c 


check. 


for unstopped after being 


stopped* in which case* 


"KQ 
07 


c 


we have to receive the data 




*t V 


50 




IF (DSW.NE.ISSET) GOTO 60 


! Were we stopped due 




C 






! to no data? If not 


42 


C 






! (NE ) t we have a 


43 


C 






! data packet 


44 


C 


Stopped due to no data* 




45 






CALL RECEI V < TASKNM * RDUFF > 


fDSW) ! Now get the ! > EX 


46 


C 






! packet 


47 






IF <DSW»EG*1> GOTO 60 




48 






TYPE *» 'RECEIVE DIRECTIVE 


FAILED AFTER "RECV2 " 


49 






1UNST0PPED. DSW = ' >DSW 


! Display error 


50 






GOTO 1000 


! message and exit 


5.1 


c 


Display dat3 




52 


60 


TYPE 75 1 ( RBUFF < J ) r J=3 * 1 5 > 




53 


75 




FORMAT <' DATA RECEIVED BY "RECV2" ♦ ' /IXr 13A2) 


54 


100 


CONTINUE 




55 


C 


Have 


received 3 messages 




56 






TYPE *»'"RECV2" HAS RECEIVED 3 MESSAGES AND WILL 


57 






1 NOW EXIT' 




58 


1000 


CALL EXIT ! 


Exit 


59 






END 
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4. 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



♦TITLE SPAWN 
♦ I DENT /02/ 

♦ENABL LC 



f Enable lower case 



File LEX44 * MAC 



EX 



This program spawns MCR***? passes it a series of ??EX 
command lines* waits for each to exit* and yyEX 
displays each command's exit status* yyEX 

Assemble and task-build instructions* 

MACRO/LIST LB* CI y 1 UPROGMACS/LIBRARY y dev : Cufd3LEX44 
LINK/MAP LEX44 y LB : C 1 y 1 3PR0GSUBS/LIBRARY 

♦ MCALL SPWN*yEXIT$SyWTSE*CyaiOW*SyQIOW*C 

i System macros 



cmdi: 

LEN1 
CMD2 i 
LEN2 •• 
CMD3 ♦ 
L.EN3 : 

smes: 

LSMES 

iosb: 



y Supplied macros 

? Inhibit listing of 

f binary extensions 

i Command line 

y Lendth of command 



♦ MCALL DIRERR y I0ERR 
♦NLIST BEX 



♦ASCII "PIP **MAC/LI 

=*~CMD1 

♦ASCII /ACT/ 
♦ -CMC 2 

♦ASCII /TIM/ 
♦ -CMD3 



♦ ASCII /SPAWN IS STARTING AND WILL SPAWN/ 
♦ASCII / MCR COMMANDS/ y Startup message 



?EX 
?EX 
J EX 
?EX 
y EX 
yEX 

J EX 
y EX 



■=.-SMES 

♦ EVEN 

♦ BLKW 



exstat: ♦BLKW 
cmdtbl: .word 

♦ WORD 

♦ WORD 

♦ WORD 

spawn: spwn* 



2 
8, 

CMDI y LEN1 
CMD2* LEN2 
CMD3rLEN3 




y Length of message 

y I/O status block 

y Exit status block 

y Table indexing 

y MCR commands 



y End of table 
MCR ♦♦♦yyyyy.lyy EXSTAT 



t yEX 
f $ EX 
y y EX 
y y EX 



y EX 



80 ♦ 



y Output message buffer 



BUFF ♦ ♦BLKB 
y Format string? 

FMT: ♦ ASCI I /%NSPAWN REPORTING: COMMAND/ 

♦ASCIZ / COMPLETED ♦ EXIT STATUS WAS %D.%N/ 
♦ EVEN 

START: QIOWSC I0*WVBy5yly ylOSBy y <SMESy LSMES y40> 

BCS ERR ID ? Branch on dir error 

TSTB IOSB y Check for I/O error 

BLT ERR1I y Branch on I/O error 



f yEX 
y y EX 
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MOV 


♦CMDTBL 


9 R3 9 


R3 »> command table 


9 9 EX 


53 




MOV 


♦SPAWN* 


R4 9 


R4 ~> SPAWN DPB 


9 9 EX 


54 


getcmd: 


MOV 


<R3) + >S*PWCA(R4> J 


Set command address 


9 9 EX 


55 




BEG 


DONE 


9 


If 0> end of list 


9 5 EX 


56 




MOV 


<R3)+>S»PWCL(R4) t 


Command length 


9 9 EX 


57 




DIR* 


R4 


9 


Spawn MCR ♦ ♦ ♦ 


9 fEX 


58 




BCS 


ERR 2 


9 


Branch on dir error 




59 




WTSE*C 


1 


9 


Wait for task to ex 


it 


60 




BCS 


ERR3 


9 


Branch on dir error 




61 




BIC 


#177400 


9 EXSTAT 9 


Clear high order byte 


62 








9 


of exit status 




63 




MOV 


#BUFF>RO ? 


Set up for $EDMSG 




64 




MOV 


#FMT»R1 


9 






65 




MOV 


♦EXSTAT 


9 R2 ? 






66 




CALL 


$EDMSG 


9 


Edit status message 




67 




OIOW*S 


♦IO.WVB 


9*59*1 v x*IOSBr ,<#BUFFrRl 9 *40> 




68 








9 


Display exit status 




69 




BCS 


ERR4D 


9 


Branch on dir error 




70 




TSTB 


IOSB 


9 


Check for I/O error 




71 




BLT 


ERR4I 


9 


Branch on I/O error 




72 




BR 


GETCMD 


9 


Get next command 


9 ?EX 


73 


DONE J 


EXIT*S 




9 


Exit 


9 9 EX 


74 


J Error 


handling code ~ 


9 Display 


error message and exit 


75 


err in: 


DIRERR 


< ERR OR 


WRITING STARTUP MESSAGE.':* 




76 


errii: 


IOERR 


♦IOSB*< 


ERROR WRITING STARTUP TEXT> 




77 


ERR2 ♦ 


DIRERR 


< ERROR 


SPAWNING MCR> 


9 9 EX 


78 


ERR3 * 


DIRERR 


< ERROR 


WAITING FOR EVENT FLAG> 




79 


ERR4D* 


DIRERR 


< ERROR 


WRITING EXIT STATUS> 


9 9 EX 


80 


ERR4I I 


IOERR 


♦IOSBr< 


ERROR WRITING EXIT STATUS> 


9 9 EX 


81 




♦ END 


START 
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1 PROGRAM SPWN 

2 C 

3 C File LEX44.FTN 

4 C 

5 C This program spawns ...DCLy passes it s series of ! !EX 

6 C command lines* waits for each to exit* and HEX 

7 C displays each command's exit status* ! ! EX 

8 C 

9 C Data 

10 INTEGER EXSTAT<8) rPLIST(6) t DSW 

11 BYTE BUFF (80) 

12 C Commands to be spawned* ! ! EX 

13 C 

14 C DIR *.MAC ! ! EX 

15 C SHOW TASKS/ACTIVE ! ! EX 

16 C SHOW TIME ! ! EX 

17 C 

18 REAL CMD(5>3> ! ! EX 

19 DATA CMD/'DIR ','*. MA' r'C , r t 

20 1 'SHOW',' TAS' r 'KS/A' r 'CTIV t 'E' r 

21 2 'SHOW'*' TIM ' r ' E ' > t 0/ HEX 

22 INTEGER LEN( 3) 

23 DATA LEN/9,17»9/ 

24 C 

25 REAL DCL 

26 DATA DCL/6R. . .DCL/ 

27 C 

28 C Code 

29 WRITE (5*15) 'Write message 

30 15 FORMAT (' SPAWN IS STARTING AND WILL SPAWN 

31 1 'DCL COMMANDS') M EX 

32 DO 30rl=l»3 

33 CALL SPAWN (DCL * r rlr rEXSTAT y t CMD( r LEN( I ) 

34 If, rDSW) MEX 

35 ! Spawn DCL 

36 IF (DSW. LT.O) GOTO 900 

37 CALL WAITFR(lrDSW) 

38 IF (DSW. LT.O) GOTO 910 

39 WRITE (5>25) EXSTAT ( 1 ) ♦ AND ♦ • 377 ! Display low 

40 ! b«te of exit status 

41 25 FORMAT (' SPAWN REPORTING: COMMAND COMPLETED. 'r 

42 1 ' EXIT STATUS WAS ' r II f ' . ' ) 

43 30 CONTINUE 

44 CALL EXIT ! Exit 

45 C Error handling code 

46 900 TYPE #> 'ERROR SPAWNING DCL. DSW * ',DSW 

47 GOTO 1000 

48 910 TYPE *f 'ERROR WAITING FOR EVENT FLAG. DSW '« '>DSW 

49 1000 CALL EXIT 

50 END 



Branch on dir error 
Wait for task to exit 
Branch on dir error 
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1 




♦TITLE 


LEX45A 


2 




♦ I DENT 


/01/ 


3 




♦ ENABL 


LC 9 Enable lower case 


4 


y + 






5 


y File 


LEX45A,MAC 


6 
7 


i Solution to Module 4? Lab Exercise 5 - Part. A* parent 


8 


? task 






9 
10 


y Task 


spawns LEX45B and reports status of that. task* 


11 


i Synchronisation is through an AST routine* 


12 

13 




♦ GL0BL 


*EDMSG 


14 




♦ MCALL 


CLEF* y WTSE*C y SPWN*C y EXIT*S y QI0W* y DIR* 


15 




♦MCALL 


SETF*C t CNCT*C y ASTX*Sy QI0W*C y ABRT*C 


16 




* MCALL 


DIRERR 


17 


t 






18 


qio: 


GI0W* 


I0*WVBy5y2y y yy<OUTBUFy 0y40> ? Set msg 


.1 V 






5 length later 


20 


clef: 


CLEF* 


1 


21 


} *EDMSG argument block* 




EDMARG: 


♦ WORD 


OFEMST i ~> OFEMST or OFEXIT 


23 


status: 


♦ BLKW 


8* ? Offspring status block 


24 

25 


y 

MSG : 


♦ASCIZ 


/OFFSPRING 7.1* STATUS * %D%N/ 


26 


ofemst: 


♦ASCIZ 


/EMITTED STATUS/ 


27 


ofexit: 


♦ASCIZ 


/EXITED/ 


28 


0UTBUFJ 


♦ BLKB 


200* 


29 




♦ EVEN 




30 


y 






31 




♦ ENABLE 


LSB 


32 


start: 


MOV 


#QI0»R4 y R4 O (HOW* DPB 


33 




DIR* 


♦CLEF 9 CLEF 1 y used to synch 


34 






y with AST routine 


35 




BCS 


ERR 1 


36 




SPWN*C 


LEX45By y y y y y ASTRTN y STATUS 5 Spawn LEX45 


37 




BCS 


ERR2 


38 


i$: 


WTSE*C 


1 y Wait until AST occurs 


39 






? and AST routine sets 


40 






y flag 


41 




BCS 


ERR3 


42 




MOV 


♦OUTBUFyRO ? RO ~> *EDMSG output 


43 




MOV 


♦MSGyRl y Rl *> *EDMSG input 


44 




MOV 


♦EDMARG yR2 ? R2 => *EDMSG arguments 


45 




MOVB 


STATUS yR5 5 Extend sign on status 


46 




MOV 


RSySTATUS y bytev also keep in R5 


47 




BMI 


2* y Minus values mean EMST 


48 




MOV 


♦OFEXIT y EDMARG y >= means EXIT 


49 


2$: 


CALL 


*EDMSG 


50 




MOV 


Rl y Q ♦ IOPL+2 <R4 ) y Load message length 
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DIR* 


R4 


f QIOW* to ti: 


52 




BCS 


ERR4 




53 




TST 


R5 


9 Did offspring exit? 


54 




BGE 


3* 


* Yes 


55 




DIR* 


♦CLEF 


9 No* Clear EF 1 again 


56 




BCS 


ERRS 




57 




BR 


1* 


9 Wait 


58 
59 


3$: 


EXIT*S 




9 Once offspring exits* 
* so should parent 


AO 


* 








61 


erri : 


DIRERR 


< ERROR 


ON INITIAL CLEF*> 


62 


ERR 2 * 


DIRERR 


<ERR0R 


SPAWNING LEX45B> 


63 


ERR3 : 


DIRERR 


<ERR0R 


ON WTSE*C> 


64 


ERR4 J 


DIRERR 


<ERROR 


ON QI0W*> 


65 


errs: 


DIRERR 


< ERROR 


ON CLEF$> 


66 


* 








67 


* AST routine* 


entered 


when offspring emits status 


68 


* (negative status value) or exits (positive status 


69 


* value) 






70 


* 








71 


astrtn: 


SETF*C 


1 


* Awaken main code 


72 




BCS 


ERR6 




73 




CMP 


*DSW*#IS*SET * If set* main code is 


74 








* not ready yet 


75 




BEQ 


OVRRUN 


* We've been overrun 


76 




TST 


STATUS 


* Has offspring exited? 


77 




BGE 


4* 


* If so* don't try to 


78 








> reconnect 


79 




CNCT*C 


LEX45B* 


* ASTRTN* STATUS 


80 




BCS 


ERR7 




81 


4*J 


TST 


(SP) + 


* Clean up stack from AST 


82 




ASTX$S 




* Let main code run 


83 


* 








84 


* If a 


new status comes 


in before we're done with the old 


85 


* one* 


something is wrong* Stop everything* 


86 


* 








87 


ovrnms: 


♦ASCII 


/STATUS 


; RECEIVED BEFORE READY ♦ / 


88 




♦ASCII 


/ ABORTING BOTH TASKS*/ 


89 


0VRNML 


= ♦ -OVRNMS 




90 




♦ EVEN 






91 


* 








92 


ovrrun : 


QI0W*C 


10 * WVB * 5 * 3 9 * * * <0v"RNMS * OVRNML * 40> 


93 




ABRT*C 


I...EX45B 


* Abort offspring 


94 




BCS 


ERRS 




95 




EXIT$S 




* Exit this task 


96 


* 








97 


ERR 6 1 


DIRERR 


< ERROR 


FROM SETF* IN AST ROUTINES- 


98 


ERR 7 ♦ 


DIRERR 


<ERROR 


CONNECTING TO OFF SPRING > 


99 


ERRS ♦ 


DIRERR 


<ERR0R 


ABORTING OFFSPRINGS 


100 




♦ END 


START 
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Using Directives for Intertask Communication 

SOLUTION 



1 




PROGRAM I..EX45A 




C+ 




3 


C File 


LEX45A ♦ FTN 


4 


C 




5 


C Solution to Module A? Lab Exercise 5 - Part Ay parent 


6 


C task 




7 


C 




8 


C Task 


spawns LEX45B and reports status of that task* 


9 


C Negative status values are used when emitting status y 


1 A 
1 W 


C positive values when exiting* 


1 1 


C 




1 


C Synchronization is through an event flag* 


1 "Z 

1 o 


C- 




1 4 


C 




1 5 




REAL LEX45B 


1 6 




DATA LEX45B/6RLEX45B/ 


17 




INTEGER STATUS < 8) y DSW 


18 


C 




19 


C Spawn 


LEX45B ♦ 


20 




CALL SPAWN ( LEX45B mi^Im STATUS rrnn DSW ) 


21 




IF (BSW*LT*0) GOTO 900 




10 


CALL WAITFRdyDSW) ! Wait until EXIT or 


v> 


C 


! EMIT STATUS occurs 


1 /* 




IF <DSW*LT*0> GOTO 910 


os 




IF <STATUS<1> *GE*0) GOTO 20 ! Offspring exited 


.'o 


C 


! Emitted status* 


A / 




TYPE 15ySTATUS(l) *0R* "177400 ! Display status* 


O 


C 


! neg sign extended 


o o 

A 7 


C 


! to get neg value 


30 


15 


FORMAT <' OFFSPRING EMITTED STATUS* STATUS = 'y 


>.•>]. 




114/) 


32 




CALL CNCT <LEX45B» 1 y y STATUS y yDSW) ! Reconnect 


33 




IF (DSW*LT*0) GOTO 920 


34 




GOTO 10 ! Wait for next status 


35 


C 




36 


C Offspring exited* 


37 


C 




38 


20 


TYPE 25 y STATUS ( 1 ) ♦ AND ♦ " 377 


39 


25 


FORMAT (' OFFSPRING EXITED* STATUS * 'yI4/> 


40 




CALL EXIT ! Once offspring exits* 


41 


C 


! so should parent 


42 


C 




43 


900 


TYPE *y 'ERROR SPAWNING LEX45B ♦ DSW = 'yDSW 


44 




GOTO 1000 


45 


910 


TYPE tr "ERROR ON WAITFR ♦ DSW « 'yDSW 


46 




GOTO 1000 


47 


920 


TYPE *y 'ERROR CONNECTING TO OFFSPRING* DSW * 'y 


48 




1DSW 


49 


1000 


CALL EXIT 


50 




END 
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Using Directives for Intertask Communication 



SOLUTION 



4 
5 
6 
7 
8 
9 
10 
11. 
12 
13 
14 
15 
16 
1? 
.1.8 
19 

20 
21 
22 
23 
24 
25 
26 
'?'? 

20 
29 
30 
31. 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41. 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦ TITLE LEX45B 

♦ I DENT /Ol/ 
♦ENABL LC 



5 Enable lower C3se 



File L.EX45B*MAC 



Solution to Module 4? Lab Exercise 5 
offspring task 



Part Br 



This task is spawned by 
status every 5 seconds? 
(6 emitsy then an exit). 



LEX45A* It emits a negative 
then exits after 30 seconds 



If an emit status fails because this task was not 
connected to the parent* another emit status will be 
tried 5 seconds later* Two consecutive failures cause 
this task to exit with an error message* 

This task must be installed under task name LEX45B* 

♦ MC ALL EMST*S tQl 0W$C t WTSESC * MRKT$C r EXIT*S 
♦MCALL DIRERR 



NCNCT 



NCNCTL 



START X 



♦ ASCI I 

♦ BYTE 

♦ ASCI I /Wll. 
♦ -NCNCT 

♦ EVEN 



/LEX45B NOT CONNECTED 
15 y 12 

TRY AGAIN 



TO ANY PARENT/ 
IN 5 SECONDS/ 



EMST 



1* 



CLR 
CLR 



MOM 

DEC 
BMI 

MRKT*C 

BCS 

DEC 

EMST*S 

BCS 

CLR 

BR 

CMP 

BNE 



R0 
Rl 



*6yR3 
R3 

EXIT 
1 f 5 f 2 

ERR1 
R0 

yRO 

1$ 

Rl 

WAIT 

$DSW»#IE* ITS 

ERR2 



RO ~ exit status 

Rl ~ means l3st 
attempt to emit status 
sueeeded* RO < means 
it failed because we 
were not connected 

R3 = number of emits 
yet to be issued 

Set timer (again)? 

No r Just exit 

Set timer for 5 seconds 

Use status < when 

emitting 
Emit to parent 
Failed* Why? 
Note success 
Wait for 5 sees to pass 
Failed because not 

connected? 
Any other reason* ouit 
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Using Directives for Intertask Communication 



SOLUTION 



si 

52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 



wait: 



exit: 



TST 
BMI 
DEC 



oiowsc 

BCS 

WTSE*C 

BCS 

BR 

EXIT*S 



Ri 

ERR 2 
Rl 



lO.WVB 
ERR 3 

1 

ERR4 
EMST 



t xj r ... 9 9 9 f 



9 Failed last time too? 

9 Then s$ive up 

9 Else note we failed this 

r time 

9 And announce the 

9 problem* 
<NCNCT 9 NCNCTL r 40> 



And try a3a in in 5 
Wait for 5 sees to 



sees 
pass 



9 Exit (with success) 



9 Directive errors 



ERRi: DIRERR <ERR0R ON MRKT$C> 

ERR2 : DIRERR <ERR0R EMITTING TO PARENT.' 

ERR 3* DIRERR < ERR OR ON 0I0W$C> 

ERR4 : DIRERR < ERROR ON WTSE*C> 

♦ END START 



1 PROGRAM LEX45B 

2 C+ 

3 C File LEX45B ♦ FTN 

4 C 

5 C Solution to Module A 9 Lab Exercise 5 - Part By 

6 C offspring task 

7 C 

8 C This task is spawned by LEX45A* It emits a negative 

9 C status every 5 seconds 9 then exits after 30 seconds 

10 C (6 emits* then an exit)* 

11 C 

12 C If an emit status fails because this task was not 

13 C connected to the parent 9 another emit status will be 

14 C tried 5 seconds later* Two consecutive failures cause 

15 C this task to exit with an error message* 

16 C 

17 C This task must be installed under task name LEX45B* 

18 C~ 
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Using Directives for Intertask Communication 



SOLUTION 



19 


C 






20 




INTEGER DSWflEITS 




21 




DATA IEITS/-8/ 


! Error mnemonic 


22 




L0GICAL*1 ERLAST 


! Flas* if last EMST 


23 


C 




! failed because we were 


24 


C 




! not connected 


25 




DATA ERLAST/ ♦ FALSE ♦ / 




26 


C 






ny 




DO 50 r 1=1*6 


! Issue 6 EMSTs 


2 {3 




CALL. MARK <l>5»2rDSU) 


! Set timer for 5 seconds 


29 




IF (DSW*LT*0) GOTO 900 




30 




CALL EMST( r (-1 ) >DSW> 


! Emit to parent 


31 




IF (DSW*LT*0) GOTO 20 


! Failed* Why? 


32 




ERLAST = ♦ FALSE* 


! Note success 


33 




GOTO 30 


! Wait for 5 sees to pass 


34 


20 


IF (DSW*NE* IEITS) GOTO 


910 ! Failed for reason 


35 


C 




! other than not 


36 


C 




! connected 


37 




IF (ERLAST) GOTO 910 


! Failed last time too? 


38 


C 




! Then <3ive up* 


39 




ERLAST « ♦TRUE* 


! Else note we failed 


40 






! this time 


41 


C 




! And announce the 


42 


C 




! problem* 


43 




TYPE 25 




44 


25 


FORMAT ( 'LEX45B NOT CONNECTED TO ANY PARENT ' / 


45 




1 ' WILL TRY AGAIN IN 5 


SECONDS ' ) 


46 


C 




! And try a3a in in 5 sees 


47 


30 


CALL WAITFR(1>DSW) 


! Wait for 5 sees to pass 


48 




IF (DSW*LT*0) GOTO 920 




49 


50 


CONTINUE 




50 




CALL EXIT 


! Exit (with success) 


51 


C 






52 


C Directive errors 




53 


C 






54 


900 


TYPE * f ' ERROR ON MRK'T ♦ 


DSW = ' y DSW 


55 




GOTO 1000 




56 


910 


TYPE *» 'ERROR EMITTING 


TO PARENT ♦ DSW * ',DSW 


57 




GOTO 1000 




58 


920 


TYPE *, 'ERROR ON WAITFR* DSW = 'yDSW 


59 


1000 


CALL EXIT 




60 




END 
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Memory Management Concepts 



TEST/EXERCISE 



Write ' M ' if the statement applies to mapped systems, 'U' if 
it applies to unmapped systems, or 'M,U* if it applies to 
both. 

a. Physical addresses up to 32K words accessible with 

16-bit addressing. 

b. Physical addresses up to 128K words accessible with 

18-bit addressing. 

c. Program relocation possible without having to program 

or task-build again. 

d. Detection of memory protection violations. 

e. Program executes only at physical addresses that match 

the virtual addresses created by the task builder. 

f. Virtual address limit of 32K words. 



Fill in the headings and the missing values in Figure 1. 
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(Si 



ADDRESSES 



160000 _ 



100000 



60000 



20000 




MEMORY 



COMMON 

8K WORDS 



TASK 

7K WORDS 



APR 

# 




PAR 

VALUES 



013422 



000000 



000000 



000000 



012736 



MEMORY 



ADDRESSES 



/ 



COMMON 



TASK 



01253600 



m 

CO 



m 
x 
m 
j) 
o 

c/> 
m 



(D 

3 
o 



0) 
3 
0) 
(O 
(D 

3 

<t> 

3 

o 
o 

3 

O 
<D 

0) 



Figure 1 Virtual Addresses, APRs and Physical Addresses 

in a Mapped System 



Memory Management Concepts 



SOLUTION 



Write ' M' if the statement applies to mapped systems, 'U' if 
it applies to unmapped systems, or 'M,U* if it applies to 
both. 

U a. Physical addresses up to 32K words accessible with 
16-bit addressing. (M is also acceptable since 32K 
words is the limit of 16-bit addressing even on a 
mapped system.) 

M b. Physical addresses up to 128K words accessible with 
18-bit addressing. 

M c. Program relocation possible without having to program 
or task-build again. 

M d. Detection of memory protection violations. 

U e . Program executes only at physical addresses that match 
the virtual addresses created by the task builder. 

M, U f . Virtual address limit of 32K words. 

Fill in the headings and the missing values in Figure 1. 
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VIRTUAL 

ADDRESSES 



160000 



140000 
120000 

100000 
60000 
40000 
20000 




VIRTUAL 

MEMORY 



COMMON 
8K WORDS 



TASK 

7K WORDS 



APR 

# 




PAR 

VALUES 



013622 



013422 



000000 



000000 



000000 



000000 



012736 



012536 



PHYSICAL 

MEMORY 



COMMON 



TASK 



PHYSICAL 

ADDRESSES 



01342200 



01253600 



Figure 1 Virtual Addresses, APRs and Physical Addresses 

in a Mapped System 



Overlaying Techniques 



TEST/EXERCISE 



The following is an output display from a task. 

MAIN CALLING SUBROUTINE G 
G CALLING SUBROUTINE Gl 
Gl RUNNING 

MAIN CALLING SUBROUTINE HI 
HI RUNNING 

MAIN CALLING SUBROUTINE H 
H CALLING SUBROUTINE HI 
HI RUNNING 

H CALLING SUBROUTINE H2 
H2 RUNNING 
MAIN EXITING 

The calling sequence parallels the output display. 

1. Draw an overlay tree diagram or a memory allocation diagram 
for a possible overlay structure for the task. 



2. Write the modules MAIN, G, Gl, H, HI, and H2. Assemble or 
compile each one. 

3. Task-build and run the task without overlays. Obtain a map. 

4. Task-build and run the task with all disk-resident overlays. 
Obtain a map. 

5. Task-build and run the task with all memory-resident overlays. 
Obtain a map. 
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Overlaying Techniques 



TEST/EXERCISE 



6. Task-build and run the task with G, Gl and H in memory- 
resident overlays, HI and H2 in disk-resident overlays. 
Obtain a map. 

7. Use the map to fill in the following table: 

Type of Starting Virtual Starting Virtual 

Overlay Address of G Address of HI 

No Overlays 

All 

Disk-Resident 
Overlays 

All 

Memory-Resident 
Overlays 

Di sk-Resident 
and Memory- 
Resident 
Overlays 

8. (Optional) Task-build Example 6-5 so that the module TOTAL is 
in an overlay segment. 

9. (Optional) Modify Exercise 8. Add a subroutine RTOTAL which 
displays the running total after each job (e.g., THE TOTAL SO 
FAR IS xx) . 

NOTE 1 

For debugging, place RTOTAL in the root 
segment and place all calls to RTOTAL in the 
module MAIN. 

NOTE 2 

Once RTOTAL is debugged, build the task with 
RTOTAL in an existing overlay segment. Place 
RTOTAL so that the task executes the fastest. 
(Still use autoload, but place RTOTAL to 
minimize loading of overlay segments.) 
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Overlaying Techniques 



SOLUTION 

The following is an output display from a task. 

MAIN CALLING SUBROUTINE G 
G CALLING SUBROUTINE Gl 
Gl RUNNING 

MAIN CALLING SUBROUTINE HI 
HI RUNNING 

MAIN CALLING SUBROUTINE H 
H CALLING SUBROUTINE HI 
HI RUNNING 

H CALLING SUBROUTINE H2 
H2 RUNNING 
MAIN EXITING 

The calling sequence parallels the output display. 

1. Draw an overlay tree diagram or a memory allocation diagram 
for a possible overlay structure for the task. 



OVERLAY TREE 

G1 H1 H2 



MEMORY ALLOCATION 
DIAGRAM 



G1 


H1 H2 


G 


H 


MAIN 



MAIN 



TK-7744 
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Overlaying Techniques 
SOLUTION 



2. 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



♦TITLE MAIN 

♦ I DENT /01/ 

♦ ENABLE L.C 

y 

i File LEX6A ♦ MAC 



y Enable lower case 



Mainline routine for Module 6y Lab Exercises 1-6. 
Illustrate different overlays and their effects* 



♦GLOBL GyHlyH 

♦ MCALL. QI0U*C>EXIT*S 

♦MCALL DIRERR 



y Subroutines called 



r Messages 
f 

CGMS: .ASCII /MAIN CALLING SUBROUTINE G/ 
CGML = .-CGMS 

CH1MS: ♦ ASCII /MAIN CALLING SUBROUTINE HI/ 
CHI ML = .-CHI MS 

CI IMS: .ASCII /MAIN CALLING SUBROUTINE H/ 
CHML - ♦ -CHMS 

EXMSt .ASCII /MAIN EXITING/ 
EXML = .-EXMS 

♦ EVEN 

r 

v For each routine? type message then call routine 

9 

START: QI0W*.C lO.WVBySyly f y y <CGMS y CGML y 40> 

BCS I0FAIL 

CALL G 

QI0W*C ICUIVBySyly t y y<CHlMSrCHlML>40> 
BCS I OF AIL- 
CALL HI 

QI0W*C I0.WVBr5y.ly t y y <CHMS y CHML y 40> 

BCS I0FAIL 

CALL H 

QI0W*C I0.WVBy5y 1 y y y y <EXMS y EXML r 40> 
EXIT$S 

iofa.il: : direrr <error on qio to terminal;- 

♦ end start 
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Overlaying Techniques 
SOLUTION 



1 PROGRAM MAIN 

2 C 

3 C File LEX6A.FTN 

4 C 

5 C Mainline routine for Module 6y Lab Exercises 1-6* 

6 C Illustrate different overlays and their effects* 

7 C 

8 C For each routine!' type message then call routine 

9 C 

10 TYPE * y "MAIN CALLING SUBROUTINE G ' 

11 CALL G 

12 TYPE *y'MAl'N CALLING SUBROUTINE Hi' 

13 CALL HI 

14 TYPE # y "MAIN CALLING SUBROUTINE H' 

15 CALL H 

16 TYPE * y ' MAIN EXITING ' 

17 CALL EXIT 
IS END 



4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



♦TITLE G 

♦ I DENT /01/ 

♦ ENABL LC 

y 

y File LEX6B ♦ MAC 



y Enable lower case 



y Subroutine for Module 6y Lab Exercises 1-6* 

y Illustrate different overlays and their effects* 



♦ GLOBL Gl 

♦ GLOBL IOFAIL 

♦ MCALL GI0W*C 



y Subroutine called 
y Error routine 



y Messages 

y 

CG1MS: ♦ASCII /G CALLING SUBROUTINE Gl/ 
CGI ML = ♦ -CGI MS 

♦ EVEN 

y 

y Type message then call routine 
y 

Git QI0W*C I0*WMBy5yly y y y <CG1 MS y CG1ML y 40> 

BCS ERROR 

CALL Gl 

RETURN 
error: JMP IOFAIL 

♦ END 



67 



Overlaying Techniques 
SOLUTION 



1 SUBROUTINE G 

2 C 

3 C File LEX6B.FTN 

4 C 

5 C Subroutine for Module 6y Lab Exercises 1-6* 

6 C Illustrate different overlays and their effects* 

7 C 

8 C Type message then call routine 

9 C 

.1.0 TYPE *y'G CALLING SUBROUTINE Gl ' 

11 CALL Gl 

12 RETURN 
.1.3 END 



1 ♦TITLE Gl 

2 ♦ I DENT /01/ 

3 »ENABL LC * Enable lower case 

4 i 

5 ? File LEX6C»MAC 

6 r 

7 i Subroutine for Module 6t Lab Exercises 1-6* 

8 i Illustrate different overlays and their effects* 

9 y 

10 ♦ 6L0BL I0FAIL i Error routine 

11 ♦ MCALL QI0W*C 

12 9 

13 y Messages 

14 y 

15 G1RUN i * ASCI I /Gl RUNNING/ 

16 G1RUNL » ♦ --G1RUN 

17 ♦ EVEN 

18 f 

.1.9 y Type message then return 

20 ? 

21 Gi:t QI0W*C I0*UVBy5rlyyyy<GlRUNyGlRUNLy40> 

22 BCS ERROR 

23 RETURN 

24 ERROR ♦ JMP I0FAIL 

25 ♦ END 
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Overlaying Techniques 
SOLUTION 



1 SUBROUTINE Gl 

2 C 

3 C File? LEX6C ♦ FTN 

4 C 

5 C Subroutine for Module 6r Lab Exercises 1-6 ♦ 

6 C Illustrate different overlays 3nd their effects* 

7 C 

8 C Type message then return 

9 C 

10 TYPE *y 'Gl RUNNING ' 

11 RETURN 

12 END 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



♦TITLE H 

♦ I DENT /01/ 

♦ENABL LC 

y 

f File LEX6D.MAC 



f Enable lower case 



i Subroutine for Module 6* Lab Exercises 1-6* 

y Illustrate different overlays and their effects* 



» GLOBL H1»H2 
♦ GLOBL I0FAIL 
♦ MCALL QI0W*C 



) Subroutines called 
y Error routine 



f Messages 
r 

CHI MS : .ASCII /H CALLING SUBROUTINE HI/ 
CHI ML = .-CHI MS 

CH2MS i .ASCII /H CALLING SUBROUTINE H2/ 
CH2ML = . -CH2MS 
.EVEN 

? Type message then call routine 

i 

Hi i 



ERROR 



QI0W*C 

BCS 

CALL 

QI0W$C 

BCS 

CALL 

RETURN 

J MP 

.END 



lO.WVBySyly y y y <CHlMSyCHlMI_y40> 
ERROR 
HI 

lO.WVBySyl r > r y <CH2MS r CH2ML y 40> 

ERROR 

H2 

IOFAIL 
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Overlaying Techniques 
SOLUTION 



1 SUBROUTINE H 

2 C 

3 C File LEXAD*FTN 

4 C 

5 C Subroutine for Module 6* Lab Exercises 1-6* 

A C Illustrate different overlays and their effects* 

7 C 

8 C Type message then call routine 

9 C 

10 TYPE *f'H CALLING SUBROUTINE HI' 

11 CALL HI 

12 TYPE *v'H CALLING SUBROUTINE H2' 

13 CALL H2 

14 RETURN 

15 END 



1 » TITLE HI 

2 ♦ I DENT /01/ 

3 *ENABL LC r Enable lower case 

4 9 

5 J File LEXAE ♦ MAC 
A t 

7 t Subroutine for Module 6r Lab Exercises 1--A* 

8 r Illustrate different overlays and their effects* 

9 r 

10 ♦GI...0BL I0FAIL i Error routine 

11 ♦ MCALL QI0U4C 

12 9 

.1.3 r Messages 

.1. 4 ? 

15 HI RUN t ♦ ASCI I /HI RUNNING/ 

16 H1RUNL « ♦ -HI RUN 

17 ♦ EVEN 
.1.8 i 

1.9 ? Type message then return 

20 ? 
21 

22 BCS ERROR 

23 RETURN 

24 error: JMP I0FAIL 

25 ♦ END 
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Overlaying Techniques 
SOLUTION 



1 SUBROUTINE HI 

2 C 

3 C File LEX6E ♦ FTN 

4 C 

5 C Subroutine for Module 6» Lab Exercises 1-6* 

6 C Illustrate different overlays 3nd their effects* 

7 C 

8 C Type message then return 

9 C 

10 TYPE *y'Hl RUNNING ' 

1 1 RETURN 

12 END 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
.1.7 
18 
19 
20 
21 

23 
24 
2 c: j 



♦TITLE H2 
♦I DENT /01/ 
♦ENABL I...C 

? File LEX6F ♦ MAC 



? Enable lower case 



r Subroutine for Module 6r Lab Exercises 1-6* 

v Illustrate different overlays 3nd their effects 



♦GLOBL IOFAIL 
♦MCALL QI0W*C 



? Error routine 



f Messages 
r 

H2RUN * ♦ ASCI I /H2 RUNNING/ 
H2RUNL = ♦-H2RUN 

♦ EVEN 

y 

? Type message then return 
? 

112:: QI0W*C I0*UVBr5yl r ? f r<H2RUN>H2RUNL>4<» 
BCS ERROR- 
RETURN 

error: JMP IOFAIL 

♦ END 



1 SUBROUTINE H2 

2 C 

3 C File LEX6F*FTN 

4 C 

5 C Subroutine for Module 6r Lab Exercises 1-6* 

6 C Illustrate different overlays and their effects* 

7 C 

8 C Type message then return 

9 C 

10 TYPE *y'H2 RUNNING ' 

11 RETURN 

12 END 
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Overlaying Techniques 
SOLUTION 



Module 6v Lab Exercise 3 

Task -build command to build MACR0--11 without overlay 

>L I NK/MAP LEX6A * LEX6B ? LEX6C r LEX6D 9 LEX6E ? LEX6F > 
•>LB illy 1 3PR0GSUBS/LIBRARY 

LEX 6 A ™ MAIN 
LEXAB G 
LEX6C = Gl 
LEXAD = H 
I...EX6E : ~ HI 
LEX6F = H2 



Module 6r Lab Exercise 3 



Task -build command to build FORTRAN with no overlays 

>L INK/MAP LEX6A r LEX6B r LEX6C 9 LEX6D r LEX6E r LEX6F r 
->LB : C 1 , 1 3F4P0TS/L IBRARY 



LEX6A = MAIN 
LEX6B = 6 
LEX6C = Gl 
LEX6D = H 
LEX6E ~ H .1. 
LEX6F ~ H2 
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Overlaying Techniques 
SOLUTION 



i Module Ay Lab Exercise 4 

V 

r »ODL file for build ins! MACRO- 11 with all disk resident 
v overlays 

♦ ROOT LEXA A-PROGSUBS/LB-* < LEXAB-LEXAC , OVRH ) 
OVRHJ ♦ FCTR LEXAD--< LEXAE y LEXAF) 

i LEX 6 A MAIN 

? LEXAB = G 

r LEX AC = : Gl 

? LEX AD = H 

9 LEXAE * HI 

i LEX A I" H2 

y 

♦ END 



v Module Ay Lab Exercise 4 
? 

9 »ODL file for building FORTRAN with all disk-resident 
? overlays 

♦ ROOT LEXAA-FL IB-* < LEXAB-LEXAC-FL IB y HSEGS ) 
HSEGS * . F C T R L E X A D - F L. I B - < L E X A E - F L I B y L E X A F ~ F LIB) 
FLIBt .FCTR LB? CI y 1ZIF4P0TS/LB 



LEXAA 
LEXAB 
LEXAC 
LEX AD 
LEXAE 
LEXAF 



MAIN 
G 

Gl 
H 

HI 

H2 
END 



y Module Ay Lab Exercise 5 
y 

y »ODL file for MACRO- 11 with all memory- resident 
? overlays 

♦ ROOT LEX AA -PROGSUBS/LB-* ! < LEXAB-LEXAC r Ov"RH ) 
OVRHS .FCTR LEXAD-! (LEXAE y LEXAF) 

v LEXAA = MAIN 

r LEXAB = 6 

y LEXAC = Gl 

9 LEX AD = H 

* LEXAE = Hi 

r LEXAF = H2 

♦ END 
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Overlaying Techniques 



SOLUTION 



y Module 6r Lab Exercise 5 
r 

y ♦ ODL file for FORTRAN with all memory- resident overlay 



♦ ROOT 
HSEGS: ♦ FCTR 
flib: ♦FCTR 



LEXAA-FLIB--* ! ( LEX6B -LEX6C-FLIB t HSEGS ) 
LEX6D-FL IB- ! ( LEX6E-FL I B t LEX6F-FL I B ) 
LB:C1>13F4P0TS/LB 



LEX6A 
LEX6B 
LEX6C 
L.EX6D 
LEX6E 
LEX6F 



MAIN 
G 

Gl 

H 

HI 



•-H2 



♦ END 



? Module 6f Lab Exercise 6 

i ♦ ODL file for MACR0-1J. with some memory-resident r some 
v disk-resident overlays 

♦ ROOT LEX6A-PR0GSUBS/LB--*! ( LEX6B-LEX6C y Ov"RH ) 
OVRH: .FCTR LEX6D- ( LEX6E y LEX6F ) 

V 

i LEXAA "MAIN 

y LEX6B *= G 

r LEX6C ■■■■■■■ Gl 

i LEX6D * H 

•5 LEX6E ■■= HI 

? I...EX6F :== 1-12 

y 

♦ END 



9 Module 6y Lab Exercise 6 
? 

y ♦ ODL file for FORTRAN with some disk- resident y some 

y memory- res idetn overlays 



HSEGS ♦ 
PL ib: 

I LEX6A 

9 LEXAB 

f LEX6C 

? L.EX6D 

i LEX6E 

y LEX6F 



♦ ROOT 

♦ FCTR 

♦ FCTR 

= MAIN 
« G 
- Gl 
= H 
= HI 
= H2 



LEX6A--FLIB-* ! ( LEX6BHLEX6C-FL IB y HSEGS ) 
L E X 6 D - F L IB- ( LEX6 E - F L I B y I... E X 6 F - F LIB) 
LS:C1» 13F4P0TS/LB 



♦ END 
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Overlaying Techniques 



SOLUTION 



Use the map to fill in the following table: 

Type of Starting Virtual Starting Virtual 

Overlay Address of G Address of HI 

No Overlays 

All 

Disk-Resident Answers will vary depending on 

Overlays students' particular solution. 

All 

Memory-Resident 
Overlays 

Di sk-Resident 
and Memory- 
Resident 
Overlays 



? Module 6y Lab Exercise 8 

? ♦ODL file in MACRO- 11 to place TOTAL in an overlay 
v sesiment ♦ 

? All overlays are disk-resident 

♦ ROOT MAIN~*<A--< J0B1 , JOBXX) >Bf TOTAL) 

♦ END 



? Module 6 v Lab Exercise 8 
y 

} *ODL file in FORTRAN to place TOTAL in an overlay 
? segment* 

f All overlays are disk-resident 

♦ ROOT MAIN--FI_1'B~#( OVRA y B--FLIB » TOTAL--FLIB > 
OVRAJ ♦ FCTR A~FLlB-( JOBl-FLIBr JOBXX -FLIB) 

flib: *fctr lb:ci»i3F4pots/lb 

♦ END 
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Overlaying Techniques 
SOLUTION 



9. 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦TITLE MAIN 
♦ I DENT /01/ 
♦ENABL LC 

f + 

y FILE LEX69A.MAC 



? Enable lower case 
y f EX 



» Modified to call RTOTAL to display the running ??EX 

r total after each call to A ??EX 
? 

? This program prints a message and then calls 

y subroutine A* Subroutine A asks whether to perform Job 

? 1 or Job 2» It then calls either subroutine J0B1 or 

5 J0B2 which performs the Job and displays the results* 

? MAIN then calls subroutine B* Subroutine B displays a 

v message and exits* MAIN then calls subroutine A 3 

y more times? keeping a grand total of the operations* 

y Finally? it displays the grand total and exits* 

y 

? Task-build instructions J Use LEX69A*0DL as the input? ?EX 

y file* 



MES1 f 

MES2 i 
MES3 ♦ 
MES4 i 

mess: 
DPI : 



op 2: 

ANS ♦ 



TOT ♦ 

op: : 



♦ MCALL 
*NLIST 

♦ BLKW 

♦ASCII 

♦ ASCII 
LMES1™ ♦ 
♦ASCII 
LMES2 = 
♦ASCII 
LMES3 = 
♦ASCII 
LMES4 = 
♦ASCII 
LMES5 * 
♦PSECT 

♦ WORD 

♦ WORD 

♦ WORD 

♦ BLKW 

♦PSECT 

♦ EVEN 

♦ WORD 

♦ BLKB 

♦ EVEN 



QI0W*C?EXIT$S?QI0W$S ? Supplied macros 
BEX ? Do not list binary 

? extensions 
1024* #4 y Leave space to make 

? segment larger 
/THE MAIN SEGMENT IS RUNNING AND WILL/ 
/ CALL A/ 
-ME SI 

/THE MAIN SEGMENT WILL NOW CALL B/ 
♦ -MES2 

/THE MAIN SEGMENT WILL NOW CALL A/ 
♦ -MES3 

/THE MAIN SEGMENT WILL NOW CALL TOTAL/ 
♦ -MES4 

/THE MAIN SEGMENT WILL NOW EXIT/ 
♦ -MESS 

OTHER D ? GBL ? U R ? REL y RW y PSECT for data 

5 ? 1st operand 

OP ? address of operation 

? in ASCII 
2 ? 2nd operand 

1 ? Answer to operation 



Back to blank PSECT 
Move to word boundary 
Total 

Operand in ASCII 
Move to word boundary 
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Overlaying Techniques 
SOLUTION 



51 


START ♦ 


QI0W*C 


I0*Wv"By5y 


1 y 


fir 


:!MES1 y L.MES1 y 40> y Write MES1 


52 




CALL 


A 






y Call subroutine A 


53 




CALL 


RTOTAL 






y Call routine to yyEX 


54 












y display running J J EX 


55 












y total ? y EX 


56 




QI0W*C 


I0*Wv"By5y 


It 




c!MES2yLMES2y40> y Write MES2 


57 




CALL 


B 






y Call subroutine B 


nJ O 


y Oct t 


up for loop 








59 




MOV 


#3>R4 






y Counter 


60 


loop: 


QI0W$C 


I0*WVBy5y 


1 t 


y y y •: 


:.MES3yLMES3y40> y Write MES3 


61 




CLR 


ANS 






« PI iaar jancuor *ir*i r*s>c:cj 
" wlcrdl ol 1 We 1 J. II C c> fcr 


62 












y of no operation 


63 




CALL 


A 






y Call subroutine A 


64 




CALL 


RTOTAL 






? Call routine to yyEX 


65 












? display running yyEX 


66 












y total y y EX 


67 




SOB 


R4H..00P 






y Decrement counter and 


68 












y loop back until done 


69 




QI0W*C 


I0*WUBy5y 


1 r 


! H' : 


::MES4yLMES4y40> ? Write MES4 


70 




CALL 


TOTAL 






y C3ll routine to 


71 












y display grand total 


72 




QI0W*C 


I0*WVB>5» 


1 t 


y y y ■'■ 


::MES5yLMES5y40> y Write MESS 


73 




EXIT*S 








y Exit 
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♦ END START 








1 


c 


PROGRAM 


MAIN 








3 


C FILE 


LEX69A ♦ FTN 






M EX 



4 C 

5 C Modified to call RTOTAL to display the running ! ! EX 

6 C after each C3ll to A ! ! EX 

7 C 

8 C This program prints a message and then calls subroutine 

9 C A* Subroutine A asks whether to perform Job 1 or Job 2*P 

10 C It then calls either subroutine JOB! or J0B2 which 

11 C performs the operation and displays the results* MAIN 

12 C then calls subroutine B which displays a message* MAIN 

13 C then calls subroutine A 3 more timesy keeping a grand 

14 C total of the operations* Final lyy it displays the 

15 C grand total and exits* 

16 C 

17 C Task-build instructions* Use LEX69A*0DL as the input!! EX 
1.8 C file for RTOTAL in the root* Use LEX69B*0DL as the ! ! EX 
.1.9 C input file for RTOTAL in the best overlay segment ! ! EX 
20 C 
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Overlaying Techniques 
SOLUTION 



21 COMPLEX DUMMY (1024) ! Leave spsce to make 

22 C ! segment larger 

23 COMMON /OTHER/OP 1 y OP y 0P2 y ANS 

24 INTEGER 0P1 y OP y 0P2 v ANS 

25 DATA 0Pl>0P2/5»2/ 

26 C 

27 COMMON /T0TC0M/T0T 

28 INTEGER TOT ! Total 

29 C 

30 TYPE *y'THE MAIN SEGMENT IS RUNNING AND WILL 

31 1CAL.L A' 

32 CALL A ! C3II subroutine A 

33 CALL RTOTAL ! Call subroutine ! ! EX 

34 C ! RTOTAL to display ! ! EX 

35 C ! running total M EX 

36 TYPE # y ' THE MAIN SEGMENT WILL NOW CALL B' 

37 CALL B ! Call subroutine B 

38 DO 10 y 1 = 1 y 3 

39 TYPE *y'THE MAIN SEGMENT WILL NOW CALL A ' 

40 ANS ~ ! Clear answer in case 

41 C ! of no operation 

42 10 CALL A ! Call subroutine A 

43 CALL RTOTAL ! Call subroutine ! ! EX 

44 C ! RTOTAL to display! ! EX 

45 C ! the running total!! EX 

46 TYPE * y ' THE MAIN SEGMENT WILL CALL TOTAL' 

47 CALL TOTAL (TOT) ! Call routine to 

48 C ! display grand total 

49 TYPE *y'THE MAIN SEGMENT WILL NOW EXIT' 

50 CALL EXIT ! EXIT 

51 END 
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Overlaying Techniques 
SOLUTION 



♦TITLE RTOTAL 
♦ I DENT /01/ 
♦ENABL LC 

r 

> FILE LEX69B ♦ MAC 



$ Enable lower case 



i Subroutine to print the running total 



8 
9 
10 
.11 
12 
13 
14 
15 
16 
17 
18 
19 

20 
21 
22 
23 
24 



♦ MCALL 
♦NLIST 

rtofmt: .asciz 
rtotbf: ♦ blkb 

♦ EVEN 
♦NLIST 

rtotal MOV 

MOV 
MOV 

CALL 
QI0W*S 

RETURN 

♦ END 



QIOW$S t 

BEX ? 

i 

/THE TOTAL SO FAR 
100* i 

BEX r 

♦RTOTBF .» RO i 
#RTOFMT r Rl r 
#T0T»R2 t 
$EDMSG r 
#10 ♦ WVB>#5f #1 ttft- 



External system macros 
Do not list binary 

extensions 
IS %D ♦ / r Fa rmat s t r :i. rig 
Output buffer 

List binary extensions 
Set up for * EDMS 6 



Edit message 
:#RT0TBFf Rl t*40> 

Print it 



1 SUBROUTINE RTOTAL 

2 C 

3 C FILE LEX69B+FTN 

4 C 

5 C Subroutine to print the running total 



6 C 

7 COMMON /T0TC0M/T0T 

8 INTEGER TOT 

9 TYPE 5 1 TOT 

10 5 FORMAT ( ' THE TOTAL SO FAR IS'y I4y' t '> 

11 RETURN 

12 END 



r Module 6f Lab Exercise 9 
? 

5 ♦ODL file in MACRO-llr placing RTOTAL in the root 

P segment for testing 

9 All overlays are memory- resident 

♦ ROOT LEX69A-LEX A9B-* ! < A- ! < JOB 1 r JOBXX ) y B r TOTAL ) 
? LEX69A ••= MAIN modified to call RTOTAL 

? LEX69B = RTOTAL 

♦ END 
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Overlaying Techniques 
SOLUTION 



y Module 6y Lab Exercise 9 

V 

? ♦ ODL file in FORTRAN ? placing RTOTAL in the root 

? segment for testing 

? All overlays are memo ry- resident 

♦ root lex69a-lex69b-flib-* ! ( ovra y omrb y total.--fl ib ) 
ovra: ♦ fctr a-flib-! ( j0b1-flib> jobxx-flib) 

ovrb: ♦ fctr b-flib 

flibj ♦ fctr lb:c1»13f4p0ts/lb 

y 

9 LEX69A * MAIN modified to call R TOTAL 

? LEX69B - RTOTAL 

y 

♦ END 



y Module 6 y La b E x e r c i s e 9 
P 

y ,01:11... file in MACR0~11» placing RTOTAL in the best 
y overlay segment 

y All overlays are memory- resident 

♦ ROOT LEX69A--* ! ( A-LEX69B- ! < J0B1 1 JOBXX ) y B t TOTAL ) 
? LEX69A = MAIN modified to call RTOTAL 

y LEX69B - RTOTAL 

♦ END 



i Module 6* Lab Exercise 9 
? 

y ♦ ODL file in FORTRAN y placing RTOTAL in the best 
y overlay segment 

5 All overlays are memory- resident 

♦ ROOT LEX69A-FLIB-* ! ( OVRA r OVRB y OVRC ) 
OVRA : ♦ FCTR A-LEX69B-FLIB- ! ( J0B1-FLIB t JOBXX-FLIB ) 
OVRBJ ♦FCTR B-FLIB 
GVRC: ♦FCTR TOTAL-FLIB 

flibj ♦ fctr lb:i:::i. y i::iF4P0TS/L.B 



y LEX69A 
v LEX69B 



MAIN modified 
RTOTAL 



to call RTOTAL 



♦ END 
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Static Regions 



TEST/EXERCISE 



Create an initialized resident common (size: 32(10) blocks = 
1024(10) words, contents: 25(10) in each word). Check with 
your course administrator to find out where to place the 
common type partition. Write two tasks, one that modifies all 
values in the common, and one that reads the values and 
displays them. 

Create a resident library using the supplied FORTRAN callable 
subroutines AADD, SUBB, MULL and DIW (all in LIB. MAC) . Write 
a task that calls one or more of the routines. For example, 
write a task that asks for four numbers (A, B, C, and D) and 
then computes and displays (A * B) + (C * D) = answer. 
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Static Regions 



SOLUTION 



1. 1 ♦ TITLE LEX71A 

2 ♦ I DENT /01/ 

3 .ENABL LC r Enable lower case 

4 t f 

5 ? File LEX71 A * MAC 

6 5 

7 y Program which creates and initializes a -common region 
(3 y which will be referenced using overlaid Psects. 

9 t 

10 y Size 1024* words? contents all 25 "s 

11 f 

12 ? Task-build instructions i Must include /SHAREABLE I COMMON 

13 r and /NOHEADER switches? STACK=0 and PAR=C0MWP options* 

14 y Must create .STB file* M3« be /CODE* PIC or absolute 

15 ? (default)* 
.1.6 ? 

17 y The code is placed in a Psect named MYDATA 
18 

19 .PSECT MYDATA DyGBLyOVR t Defaults RELyRW 

20 ♦REPT 1024* y Repeat count 

21 .WORD 25. r Word of 25(10) 

22 .ENDR y End repeat range 

23 .END 



1 BLOCK DATA LEX71A 

2 C 

3 C File LEX71 A ♦ FTN 

4 C 

5 C Program to create and initialize a resident common 

6 C 

7 C Size is 1024 wordsy initialized with all 25 's 

8 C 

9 C Task-build instructions. Must include /SHAREABLE * COMMON 

10 C and /NOHEADER switches? STACK=0 and PAR=C0MWP options. 

11 C Must create .STB file. Maw be /CODE* PIC or absolute 

12 C (the default). 0TS library NOT required. 

13 C 

14 COMMON /MYDATA/ 1(1024) 

15 DATA I / 1024*25/ 

16 END 
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Static Regions 
SOLUTION 



1 




♦ TITLE 


LEX71B 




2 




♦ I DENT 


/01/ 




3 




♦ ENABL 


LC 


f Enable lower case 


4 


? + 








5 


y FILE 


LEX71B»MAC 




6 
7 


f 

r This 


task dec rem tents the values in the static common 


8 


5 ression LEX71 A ♦ It uses the 


teehniwue of overlaid P sects 


9 


? to reference 


the region* 




.1.0 


y 








1.1 


y Task- 


b i.j i I d i i "i s t r u c t i o n s : 




12 
1.3 


? 
y 


>L1NK/MAP/0PTI0N LEX71B 


14 


y 


Option? 


RESC0M-LEX71A/RW 


1.5 


y 


Option? 


<RET> 




16 


9- 








1 7 




♦ MCALI... 


QIOW*S»EXIT*S 




1.8 




♦PSECT 


M YD AT A D y GBL v 


OVR ? Psect used in COMWP 


19 








y local symbol for start 


20 








y of region 


21 




♦PSECT 




y Back to blank Psect 


22 


iosb: 


♦ BLKW 


2 


? I/O status block 


23 


ARC) J 


♦ BLKW 


1 


y Argument block for 


24 








y error code 


25 


buff: 


♦ BLKB 


100* 


.0 Output buffer 


26 


FERR1 J 


. ASCIZ 


/DIR ERROR ON 


GIO. CODE %D/ P Directive 


27 








.0 error message 


.28 


FERR2: 


♦ ASCII 


! I/O ERROR ON 


GIO* CODE ZD! y I/O error 


29 










30 


DONE : 


♦ ASCI I 


/LEX 7 IB HAS MODIFIED THE VALUES/ y Done 


3.1. 




♦ASCII 




32 


I...D0NE 


-♦-DONE 






33 


W 


=1024 ♦ 




y Word count in ression 


34 




♦ EVEN 






35 


y 








36 


start: 


MOV 


#MyR2 


? Starting addr of data 


37 








? in the res.Li.on 


38 




MOV 


#WyR5 


y Loop count 


39 


loop: 


DEC 


< R2 ) + 


y D ecre m e n t v a I u e 


40 




SOB 


RSyLOOP 


y Loop back if not done 


41 




QI0W*S 


*I0*WVBy#5y*l 


y y * 1 SB y y < # D NE y # L D N E y * 4 > 


42 




BCS 


ERROR 


y C h e c k f o r d i r e r r o r 


43 




TSTB 


IOSB 


P Check for I/O error 


44 




BLT 


ERROR 1 , 


y Branch on I/O error 


45 




EXIT*S 




y Exit 


46 


? Error 


code 






47 


ERROR : 


MOV 


$DSW y ARC 


y Move DSW to ars* block 


48 




MOV 


#FERR1 yRl 


y Addr of format string 


49 




BR 


SETUP 


y Branch to $EDMSG code 
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Static Regions 
SOLUTION 



50 


ERROR i: MOVB 


1'OSByRO 


y 


Extend si sin on 


I/O 


5.1 


MOV 


ROyARG 


y 


status and pis 


ce in 


52 






y 


ar# block 




53 


MOV 


♦FERR2 y Rl 


y 


Addr of format 


st r ins* 


54 


setup: MOV 


#BUFF y RO 


y 


Addr of output 


buffer 


55 


MOV 


#ARG yR2 


y 


Addr o f a r s$ u in e n 


t block 


56 


CALL 


*EDMSG 


y 


Edit inessasfe 




57 


QIOW*S 


#10* WVBy#5y#.l y 


y y y 


:.#BUFFyR:l. y#40> t 


Write 


58 






y 


message 




59 


EXIT*S 




y 


Exit 




60 


♦ END 


START 








1 


PROGRAM 


L.EX71B 









3 
4 

5 
6 
7 
8 

9 
10 
11 

12 
13 
14 
15 
16 
1 7 
18 
19 
20 
21 
22 
23 
24 
25 



File LEX71EUFTN 

Task to decrement each word in the static common 
resJion L.EX71A* It uses 3 COMMON to reference 
the data* 

Task-bui Id instructions i 

LINK/MAP/OPTION LEX71ByLB* CI r 1 3F0R0TS/LIBRARY 
Option? RESC0M : ~LEX71 A/RW 
Option? <RET> 

COMMON /MYDATA/ L(1024)! Common to reference 

! shared region 

Decrement values 

DO 5 K>-lyl024 

L(K)=L(K)-1 

CONTINUE 

WRITE (5yl0) ? Display done message 

FORMAT ( ' LEX71B HAS MODIFIED THE VALUES IN THE 

1 COMMON LEX71 A ' ) 
CALL EXIT 
END 
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Static Regions 



SOLUTION 



1 

2 
3 
4 
5 
6 
7 
8 
9 
.1.0 
1.1. 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
4.1 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦ TITLE LEX71C 

♦ I DENT /01/ 

♦ ENABI... LC 



? Enable lower case 



y + 



FILE LEX71C\MAC 



y 
y 
y 
> 

y 
y 

y T a s k - b u i 1 d :i. n s t r u c t i o n s i 

y 
y 
y 
.0 

y- 



This task gets the values from the static common 
region LEX71A* It uses the teohnioue of overlaid P sects 
t o r e f © r e n c e t h e r e g i o n ♦ 



> LINK/MA P / P TI0N I... E X 7 1 C 
Opt i on? RESC0M-LEX7 1 A/RD 
<RET> 



iosb: 

ARG i 
BUFF t 

fmt: 



r 

START ♦ 



Option? 



♦ MCA LI... 
♦PSECT 



♦PSECT 

♦ BLKW 

♦ BLKW 

♦ BLKB 

♦ ASCIZ 



FERR1 * ♦ ASCIZ 
FERR2 i ♦ ASCIZ 

N=128* 

♦ EVEN 
MOV 



MOV 

LOOP t MOV 
MOV 
CALL 
QI0W*S 
BCS 
TSTB 
BLT 

y Stay here for 
SOB 

EXIT$S 



QIOW*S»EXIT*S 9 System macros 

MY BAT A DyGBLyOVR J Psect used in COMWP 

y local symbol for start 
of re ss ion 
Back to blank Psect 
1/0 status block 
A r si u m e n t b 1 o c k f o r 

error code 
Output buffer 
F o r m a t s t r i n g f o r 
output of data 
DSW == : ZD/ 9 Directive 
error message 
CODE « ZD! y 1/0 error 



y 
y 
.0 
y 
? 
y 
y 
y 

/DIR ERROR ON QIO. 

y 

! 1/0 ERROR ON QI0. 

y 



2 
1 

100. 

/Z8I.V 



#MyR2 

•#Ny R5 
#BUFF y RO 
*FMT y Rl 
*EDMSG 

#I0*WVBy*5ytfl y 

ERROR 

IOSB 

ERROR 1 

good write 

R5yl..00P 



y L o o p c o u n t •••• 128* 1 i n e s y 
y 8 #s per line 



y Starting addr of data 

y in the region 

5 Loop count 

y Output buffer 

y Format string 

? Edit message 

y * 1 0SB y y <#BUFF y R 1 y #40> 

y C h e c k f o r d i r e r r o r 

? Check for 1/0 error 

f Branch on 1/0 error 

y Decrement counter y loop 
y back if not yet done 

y Exit 
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SOLUTION 



51 J Error code 

52 ERROR i MOM *DSWyARG y Move DSW to ars* block 

53 MOM #FERRlyR.1. t Addr of format string 

54 BR SETUP y Branch to $ ED MSG code 

55 ERROR 1 t MO MB lOSByRO r Extend si an on I/O 

56 MOM ROvARG y status and place in 

57 y ar.?J block 

58 MOM *FERR2yRl y Addr of format strinss 

59 SETUP: MOM *BUFF y RO ? Addr of output buffer 

60 MOM #ARGyR2 y Addr of argument block 
6.1. CALL *EDMSG P Edit message 

62 QI0W$S #I0»WMBy#5y#l y y y y<#BUFFyRl y#40> y Write 

63 y message 

64 EXIT$S ? Exit 

65 ♦ END START 



1 

2 


C 




PROGRAM LEX71C 


3 


C 


File 


LEX71C.FTN 


4 


C 






5 


C 


Task 


to read data from the static common region LEX71A 


6 


C 


and 


print it out at TIJ» It uses a COMMON to reference 


7 


C 


the 


data ♦ 


8 


C 






9 


c 


Task 


- bui Id instructions I 


10 


c 






11 


c 




LINK/MAP/OPTION LEX71C y LB t C 1 y 1 3F0R0TS/L IBRARY 


12 


c 




p t i o n ? R E SC0M-L E X 7 1 A / R 


13 


c 




Option? <RET> 


14 


c 






15 






COMMON /MYDATA/ L<1024>! Common to reference 


16 


c 




! shared region 


1 7 


c 


Loop 


through to display resiony 8 numbers on a line 


18 






DO 50 J •= Iyl024y8 


19 






WRITE (5yl0) <L(K) »K=J» J+7) ! Write values 


20 


10 


FORMAT (' ',I2»7I8> 


21 


50 




CONTINUE 


22 






CALL EXIT 


23 






END 
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Static Regions 



SOLUTION 



2. 



3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
.13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



? + 



♦TITLE LEX72 

♦ I DENT /Ol/ 

♦ENABL LC i Enable lower case 

File LEX72»MAC 

Solution to Module 7r Lab Exercise 2 

Task computes sum of products using resident library 
routines ♦ 

Assembly and task build instructions* 

MACRO/LIST LBtCl* 1 UPROGMACS/LIB r dev J Luf d3LEX72 
LINK/MAP/OPTIONS LEX72»LBJ CI ? 1 3PR0GSUBS/LIB 
Op t i on? RES LI B«L I B/RO 

♦ MCALL QIOW*»QIOW*S»QIOW*CrDIR*rEXIT*S 

♦ MCALL D.TRERR y I0ERR 

♦ GLOBL $CDTBy$EDMSG ? Routines in SYSLIB 

♦ GLOBL MULL y A ADD J Routines in library LIB 



r Messages 
HDRMS: 



HDRML 
APRMTJ 
PL EN « 



BPRMTJ 
CPRMT i 

dprmt: 



♦ ASCII /TASK WILL COMPUTE < A*B ) + ( C*D ) /< 1 5>< 1 2> 

♦ ASCII /ENTER NUMBERS IN DECIMAL,/ 
♦ -HDRMS 

♦ ASCII /ENTER Ai / 
-APRMT 



y Length of prompt 
y (assumed to be all the 
y same length) 



♦ASCII /ENTER B* / 
♦ASCII /ENTER CI / 
♦ASCII /ENTER D: / 



35 


y ASCII buffers 






36 


ASCAJ ♦BLKB 


7 


r ASCII for A's value 


37 


ASCB: ♦BLKB 


7 


r Same for B 


38 


ASCCt ♦ BLKB 


7 


y C 


39 


ASCDJ ♦ BLKB 


7 


9 D 


40 


outbuf: »blkb 


80* 




41 








42 


? *EDMSG format 


string 




43 


edmfmt: ♦asciz 


/%N(%VA * %VA> 


+ (%VA * /£VA) = ZD/ 


44 


♦ EVEN 






45 








46 


y FORTRAN-compatible argument 


blocks ♦ 


47 


MULARG* ♦ WORD 


3 


y For MUL 


48 


♦ WORD 


Ml 




49 


♦ WORD 


M2 




50 


♦ WORD 


MULRES 
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Static Regions 
SOLUTION 



51 


addarg: 


♦ WORD 


3 


y 


For ADD 


52 




♦ WORD 


MURES 1 


y 


First MUL result 


53 




♦ WORD 


MULRES 


y 


Second result 


54 




♦ WORD 


GRTOT 


y 


Grand total 


55 
56 


y ASCII 


buffer 


table ♦ Initially 


each entry in this table 


57 


v consists of 


the address of a 


prompt string followed by 


58 


? the a 


ddress 


of the buffer to 


store the inputs After a 


59 


y string is input v however? the 


prompt strinsi address is 


60 


? replaced by 


the length of the 


input string* This 


61 


r table 


y with 


the addition of the 


final value GRTOT y then 


62 


y serve 


s as the $EDMSG argument 


block* 


63 


edmarg: 










64 


ABTBL t 


.WORD 


APRMT y ASCA 






65 




* WORD 


BPRMTy ASCB 






66 


CDTBL t 


♦ WORD 


CPRMTyASCC 






67 




♦ WORD 


DPRMTy ASCD 






68 


GRTOT t 


♦ WORD 




y 


Grand total (numeric 


69 








y 


value is inserted 


70 








y 


directly into $EDMSG 


71 








5 


block ) 


72 


y 










73 


t Other 


numeric values 






74 


Ml ♦ 


♦ WORD 




y 


First MUL argument 


75 


M2J 


♦ WORD 




y 


Second MUL argument 


76 


MURES i : 


♦ WORD 




y 


First MUL result 


77 


MULRES* 


♦ WORD 




y 


MUL result 


78 












79 


RDPRMT t 


QI0W* 


I0»RPRy5vl.» ylOSBx 


y<y7y y yPLENy ' $> 


80 


iosb: 


♦ BLKW 


^« 






81 












82 












83 


i Code 










84 


? 










85 


START i 


QI0W*C 


I0*WVBy5y.1. y y y y< 


HDRMS y HDRML r 40> y Identify 


86 




MOV 


#MlyR5 


y 


R5 => location to store 


87 








y 


binary input values 


88 




MOV 


♦RDPRMT y R4 


y 


R4 => "read with 


89 








y 


prompt" DPB 


90 




MOM 


♦ABTBL y R3 


y 


R3 "> ASCII buffer table 


91 




CALL 


GETINP 


y 


Get A 


92 




CALL 


GETINP 


y 


Get B 


93 




MOV 


♦MULARG r R5 


y 


R5 => MUL arg block 


94 




CALL 


MULL 


y 


Do first multiply 


95 




MOV 


MULRES y MURES 1 


y 


Save result 


96 




MOV 


♦Ml yR5 


y 


Reset registers 


97 




MOV 


♦RDPRMT yR4 


y 


(FORTRAN calling 


98 




MOV 


♦CDTBL yR3 


y 


convention does not 


99 








y 


guarantee they are 


.00 








y 


preserved* ) 
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SOLUTION 



10.1 

102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 



CALL. 

CALL 

MOV 

CALL 

MOV 

CALL 

MOV 

MOV 

MOV 

CALL 

QlOWfcS 

BCS 

EXIT$S 



GETINP 
GETINP 
♦MULARGyRS 
MULL 

♦ADDARGyRS 
A ADD 

♦OUTBUF y RO 

♦EDMFMT y Rl 

*EDMARGyR2 

$EDMSG 

#I0*WVBy#5y 

IODER 



Get 
Get 



*1 



y Do second multiply 

? Add ithjI tip 1 i cation 
y results 

y Prepare 
y f or 
y $EDMSG 

y<#0UTBUFyRly#40> 



Subroutine GETINP to get input values* 
Input ♦ 



y Output* 



R5 
R4 
R3 



R4 
R3 



location to store binary result 
010 DPB 

Address of prompt stringy 
followed by address to store 
ASCII input 

input value +2 
Unchanged 

input value +4* Location formerly 
containing address of prompt now 
contains length of input 



GETINP ♦ 



MOV 

MOV 

MOV 

D.TR$ 

BCS 

CMPB 

BNE 

MOV 

CALL 

MOV 

RETURN 



(R3) + yQ» I0PI...+6(R4) y Load prompt address 



(R3)+yR0 
ROyQ* I0PL<R4) 
R4 

I ODER 

IOSBy*IS»SUC 
I0.I0ER 

I0SB+2y-4(R3) 

*CDTB 

Rly (R5)+ 



RO ~> input buffer 
Copy to 010 DPB 
Get input 
Directive error 
I/O successful? 
No 

Save input length 
Convert to binary 
Store binary 



y Error 
I ODER ♦ 

ioioer: 



messages J 

DIRERR <ERR0R ON QI0W*> 
I0ERR #I0SBy<ERR0R ON GI0W*> 
♦END START 
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Static Regions 



SOLUTION 



1 PROGRAM LEX72 

2 C + 

3 C File LEX72*FTN 

4 C 

5 C Solution to Module 7y Lab Exercise 2 

6 C 

7 C Task computes sum of products us ins! resident library 

8 C routines* 



9 C 

10 C Task build instructions* 

11 C 

12 C LINK/MAP/OPTIONS LEX72 yLB i C 1 y 1 DF4P0TS/LIB 

13 C Option? RESLIB=LIB/R0 

14 C- 

15 INTEGER A>B»C»Di> MURES 1 y MURES2 y GRTGT 

16 C ASCII bytes to make prompting code cleaner 

17 BYTE ASC A y ASCB r ASCC y ASCD 

18 DATA ASCAyASCBv ASCC y ASCD/ ' A ' y 'B' y 'C r 'D V 

19 C 

20 TYPE 5 

21 5 FORMAT (' TASK WILL COMPUTE < A*B)+ (C*D ) '/ 

22 1 ' ENTER NUMBERS IN DECIMAL*') 

23 C FORMAT statements used repeatedly below I 

24 15 FORMAT C$ENTER SA1»'J ') 

25 25 FORMAT <I6) 

26 TYPE 15'yASCA ! Prompt for 

27 ACCEPT 25 y A ! and input A 

28 TYPE 15 y ASCB ! Prompt for 

29 ACCEPT 25 yB ! and input B 

30 CALL MUL.L( AyByMURESl ) ! MURES1 = A*B 

31 TYPE 15 y ASCC » Prompt for 

32 ACCEPT 25 yC ! and input C 

33 TYPE 15 y ASCD ! Prompt for 

34 ACCEPT 25 yD ! and input D 

35 CALL MULL ( C y D y MURES2 ) ! MURES2 = C*D 

36 CALL A ADD (MURES 1 y MURES2 y GRTGT ) ! GRTOT « sum 

37 TYPE 35 y A y B > C y D y GRTOT 

38 35 FORMAT (' CyI6y' * M6r') + ' * / yI6y / ) = '*I6> 

39 CALL EXIT 

40 END 
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Dynamic Regions 



TEST/EXERCISE 



Referring to Exercise 1 of Module 7 (Static Regions) , modify 
the tasks that reference the common so that they both map to 
the common dynamically using the memory management directives. 

Write a task that creates a dynamic region two blocks long, 
fills it with a character typed in at the terminal, and leaves 
it in existence on exit. Write a second task that modifies 
one value in the region, then displays all the values in the 
region at the terminal, and finally deletes the region. 

Modify SNDREF so that it sends the region by reference to a 

second receiver task, in addition to RCVREF. Write the second 

receiver task, which should modify values in the region and 

then display the values in the region at the terminal. 
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Dynamic Regions 



SOLUTION 



l. 



6 
7 
8 
9 
10 
11 
12 
13 
.1.4 

15 

.1. 6 

17 
■ 18 
19 

20 

21 
"> "> 

23 
24 
25 
26 
27 
28 

30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 

47 
48 
49 
50 



y + 



♦TITLE LEX81B 
♦ I DENT /01/ 

♦ENABL LC y En3ble lower case 

File LEX81B»MAC 

LEX71B modified to use memory management directives 

Program to attach to the existing region LEX71Ay create 
a virtual address window (mapped on creation))' decrement 
all values in the region by 1 r detach from the region 
and exit* 

Assemble and task-build instructions* 

>MACR0/LIST LB? CI 1 1 L1PR0GMACS/LIBRARY r dev t Cuf d.lLEX81B 
>L INK/MAP/OPTION LEX81B y LB : C 1 y 1 3PRQGSUBS/L IBRARY 
>0>tion? WNDWS=1 
>0ption? <RET> 



rdb: 



win: 
wdb : 

y 



iosb: 
w 

done : 

LD0NE 

start: 



♦ MCALL. 
♦ MCALL 
* MCALL 
RDBBK$ 

Define 



EX I T$S f RDBBK$ y WDBBK$ t ATRG$C i System 
CRAW**DTRG*S>DIR*>QI0W*S y macros 
DIRERR y I0ERR r Supplied macros 
32 ♦ t LEX7 1 A y LEX7 1 A y <RS ♦ WRT ! RS . RED> 
region with* 
Size - 32* (32* word blocks) 

Name = LEX71A 

Partition = LEX71A 

Attach with read and write access 



CRAW* 



WDB 



?DPB for create address window 



WDBBK* 7 y 32 * y y y 32 * y <WS ♦ MAP ! WS ♦ RED ! WS ♦ WRT? 
Define window with: 

APR =7 

Size 

Offset in region 
Length in region 



32* (32* word blocks) 
(32* word blocks) 
32* (32* word blocks) 



♦ BLK'W 

^1024* 

♦ASCII 

♦ASCII 

=.-D0NE 

ATRG*C 

BCS 
MOV 

DIR* 

BCS 



Map on create with read and write access 

2 5 1/0 status block 

y * of words in region 
/LEX81B HAS MODIFIED THE VALUES/ t Done 
/ IN LEX71A/ y message 



RDB 
ERR1 

RDB+R * G I D y WDB + W ♦ NR I D 



y Attach to region 
y Check for error 



♦ WIN 

ERR 2 



Move region ID 
y into WDB 
y Create window 
y Check for error 
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Dynamic Regions 



SOLUTION 



51 




MOU 


#160000 


?R2 i Set base addr in region 


52 




MOV 


#W y R5 


i Get word count 


53 


loop: 


DEC 


( R2 ) + 


? Decrement value 


54 




SOB 


R5 y LOOP 


r Loop until done 


55 




QI0W$S 


#IO*WVB 


y#5y#lr y*IOSB» * <#D0NE r *LD0NE r *40> 


56 








y Write done message 


57 




DCS 


ERR3D 


y Check for dir error 


58 




TSTB 


IOSB 


y Check for I/O error 


59 




BLT 


ERR3I 


5 Branch on error 


60 




DTRG$S 


#RDB 


? Detach from region 


61 




BCS 


ERR4 


f Check for error 


62 




EXIT*S 






63 


y Error 


handl ing 


i code 




64 


ERR1 : 


DIRERR 


< ERR OR 


ATTACHING TO REGIONS- 


65 


ERR2 t 


DIRERR 


<ERROR 


CREATING WINDOW AND MAPPINGS- 


66 


ERR 3D * 


DIRERR 


<ERROR 


WRITING DONE MESSAGES 


67 


ERR3I : 


I0ERR 


*IOSB,< 


ERROR WRITING DONE MESSAGE.'*- 


68 


ERR 4: 


DIRERR 


< ERROR 


DETACHING FROM REGI0N> 


69 




♦ END 


START 





1 




2 


C 


3 


C 


4 


C 


5 


C 


6 


C 


7 


C 


8 


C 


9 


C 


10 


C 


11 


c 


12 
13 


c 
c 


14 


c 


15 


c 


16 




17 


c 


1.8 




19 


• c 


20 


c 


21 
22 


c 
c 


23 


c 


24 


c 


25 


c 






26 


c 


27 




28 





PROGRAM LEX81B 
File LEX81B ♦ FTN 

LEX71B modified to use memory management directives 

Program to attach region LEX71A in partition LEX71A 
create a window and map it to the region upon creation* 
decrement each value in the region by 1* and detach 
from it 

Task-build with these options* 

VSECT"=DATA 1 1 60000 : 20000 
WNDWS-=1 

INTEGER RDB < 8 ) y WDB ( 8 ) 
This common block will align with the address window 

COMMON /DATA/IDATA( 1024 ) 
RDB » Region definition block with the following 
properties J 

Size 32 (10) (32 ♦•••word blocks) 

Name LEX71A 

Partition LEX71A 

Protection WO : none y SY : RWED y OW * RWED y GR : RWED 

Attach with read and write access 
Initialize the RDB 

DATA RDB /0 y 32 y 3RLEX y 3R71 A y 3RLEX y 3R71 A y " 3 y 
1" 170000/ 



96 



Dynamic Regions 



SOLUTION 



29 C WDB ~ Window definition block with the following properties J 

30 C APR 7 

31 C Size 32 (10) (32. -word blocks) 

32 C Offset in region (32* -word blocks) 

33 C Length of window 32 (10) (32* -word blocks) 

34 C Map on create with read and write access 

35 C Initialize the WDB 

36 DATA WDB /"3400*0*32*0*0*32* "203*0/ 

37 C 

38 C Attach region 

39 CALL ATRG ( RDB * IDS ) 

40 C Check for error on attach 

41 IF (IDS .LT. 0) GOTO 100 

42 C Move region id to WDB 

43 WDB(4)=RDB(1) 

44 C Create and map window 

45 CALL CRAW < WDB* IDS) 

46 C Check for error 

47 IF (IDS .LT. 0) GOTO 200 

48 C Decrement values 

49 DO 50 K=l*1024 

50 I DATA ( K ) =IDATA ( K ) -1 

51 50 CONTINUE 

52 C Detach from region and delete it 

53 CALL DTRG ( RDB * IDS) 

54 C Check for error 

55 IF (IDS .LT. 0) GOTO 300 

56 C And Jump to exit 

57 WRITE (5*60) 

58 60 FORMAT ( ' LEX81B HAS MODIFIED THE VALUES IN 

59 1 THE COMMON LEX71A ' ) 

60 GOTO 500 

61 C 

62 C Error messages 

63 100 WRITE (5*101) IDS 

64 101 FORMAT (' ERROR ATTACHING TO REGION* DSW ='*I4) 

65 GOTO 500 

66 200 WRITE (5*201) IDS 

67 201 FORMAT (' ERROR IN CREATING WINDOW* DSW ='*I4) 

68 GOTO 500 

69 300 WRITE (5*301) IDS 

70 301 FORMAT (' ERROR DETACHING FROM REGION* DSW ='*I4) 

71 C 

72 500 CALL EXIT 

73 END 
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Dynamic Regions 
SOLUTION 



6 
7 
8 
9 
10 

:i :l 
12 
13 
14 

15 

16 
17 

18 

1? 

20 

21 

22 

23 

24 

23 
/. 

27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



♦TITLE 
r I DENT 
♦ ENABL 



LEX81C 
/01/ 
LC 



r Enable lower case 

? File LEX81C»MAC 

? LEX71C modified to use memory management directives 
r 

i Program to attach to an existing resiiori> create a 

? virtual address window (mapped on creation) r read 

y ASCII data from the region? detach from the region 

* and exit* 
? 

9 Assemble and task -build instructions* 

I .."-MACRO/LIST LB J C 1 1 1 3PR0GMACS/LIBRARY t dev X Cuf dULEXSlC 

i >LINK/MAP/0PTI0N LEX81C t LB i C 1 t 1 IIPROGSUBS/LIBRARY 

i >0>tion? WNDWS^l 

9 > Opt. ion? < RETA- 



RDS" 



win: 
udb: 



I'OSBJ 

arg : 

BUFF ♦ 

fmt: 



start: 



.MCALL 
♦MC ALL 

♦ MCALL 
RDBBK* 
Define 



i System 
y macros 
macros 



word blocks) 



CRAW* 
WDBBK* 

Define 



EX I T*S 9 RDBBK* y WDBBK* t ATRG*C 
CRAW*»DTRG*S»DIR*»QIOW*S 

D I RERR 9 1 OERR i Supplied 
32 ♦ 9 LEX71 A 9 L.EX71 A t RS ♦ RED 
region with: 
Size =32* (32* 

Name = LEX71A 

Partition ~ LEX71A 

Attach with read access 



WDB ?DPB for create address window 

7 9 32 ♦ 9 9 9 32 . 9 <WS ♦ MAP ! WS ♦ RED> 
window with: 
APR 



♦ BLKW 

♦ BLKW 

♦ BLKB 
♦ASCIZ 
N=128» 

♦ EVEN 
ATRG*C 
BCS 
MOV 

MR* 



bize 
Offset 
Length 
Map on 

2 
1 

100* 
/%8D/ 



RDB 
ERR1 

RDB+R*GID: 



in region ~ 
in region ™ 
create with 



7 

32 ♦ (32+ word blocks) 
(32» word blocks) 
32* (32, word blocks) 
read access 

1/0 status block 
Argument block for 

error code 
Output buffer 
Format string 
Loop count 



♦WIN 



f Attach to region 
9 Check for error 
WDB+W»NRID i Move region 
i into WDB 
i Create window 



ID 
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Dynamic Regions 
SOLUTION 



52 




DCS 


ERR2 


5 Check for error 


53 




MOV 


#1 60000 >R2 


i Set base addr in region 


54 




MOV 


#N ? R5 


9 Loop count 


55 


loop: 


MOV 


#BUFF y RO 


9 Set up for $EDMSG 


56 




MOV 


#FMT y Rl 




57 




CALL 


$EDMSG 


9 Edit data 


58 




GIOW*S 


#I0*WVBy#5r#l f , 


#IOSB> 9 <*BUFF»R1 y*40> 


5? 








i Write data 


60 




BCS 


ERR3D 


9 Check for dir error 


61 




TSTB 


IOSB 


9 Check for I/O error 


62 




BLT 


ERR3I 


9 Branch on error 


63 




SOB 


RSyLOOP 


f Print the line 


64 


done: 


DTRG$S 


#RDB 


i Detach from resiion 


65 




BCS 


ERR4 


9 Check for error 


66 




EXIT*S 






67 


i Error 


h3ndl ins 


S code 




68 


ERR1 : 


DIRERR 


< ERROR ATTACHING TO REGIONS- 


69 


ERR2 : 


DIRERR 


TERROR CREATING 


WINDOW AND MAPPING!:-- 


70 


ERR 3Dt 


DIRERR 


<ERROR WRITING 


DATA> 


71 


ERR 3 I : 


IOERR 


#IOSBy<ERRQR WRITING data> 


72 


ERR 4 : 


DIRERR 


< ERR OR DETACHING FROM REGIONS- 


73 




♦ END 


START 





PROGRAM LEX81C 



3 


C 


4 


C 


5 


c 


6 
7 


c 

C 


8 


c 


9 


c 


10 


c 


11 


c 


12 


c 


13 


c 


14 


c 


15 




16 


c 


17 




18 


c 


19 


c 


20 


c 


21 
22 


c 
c 


23 


c 


24 


c 


25 


c 







VSECT=DATA : 1 60000 : 20000 
WNDWS^l 

INTEGER RDB<8) y WDB(8) 
common block will alidn with the 

COMMON /DATA/IDATA( 1024 ) 



Size 32 <10) (32* -word blocks) 

Name LEX71A 

Partition LEX71A 

Protection WO : none 9 S Y : RWED 9 OW : RWED 9 GR : RWED 

Attach with read access 
ilize the RDB 

DATA RDB /0 y 32 9 3RLEX y 3R71 A 9 3RLEX 9 3R71 A r " 000001 y 
1" 170000/ 
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Dynamic Regions 



SOLUTION 



28 C WDB ~ Window defin.it ion block with the following properties* 

29 C APR 7 

30 C Size 32 (10) (32,-word blocks) 

31 C Offset in region < 32* -word blocks) 

32 C Length of window 32 (10) (32* -word blocks) 

33 C Map on create with read access 

34 C Initialize the WDB 

35 DATA WDB / H 3400 t * 32 * * * 32 * " 201 * 0/ 

36 C 

37 C Attach region 

38 CALL ATRG (RDB* IDS) 

39 C Check for error on attach 

40 IF (IDS ♦ LT * 0) GOTO 100 

41 C Move region id to WDB 

42 WDB(4)^RDB(1) 

43 C Create and map window 

44 CALL CRAW (WDB* IDS) 
4'5 C Check for error 

46 IF (IDS ♦ LT* 0) GOTO 200 

47 C Print contents of region 

48 DO 50 J=l* 1024*8 

49 WRITE (5*11) (IDATA(K) *K=J* J+7) 

50 11 FORMAT (' '*I2*7I8) 

51 50 CONTINUE 

52 C Detach from region and delete it 

53 CALL DTRG (RDB* IDS) 

54 C Check for error 

55 IF (IDS ♦LT, 0) GOTO 300 

56 C And Jump to exit 

57 GOTO 500 
58 

59 C Error messages 

60 100 WRITE (5*101) IDS 

61 101 FORMAT (' ERROR ATTACHING TO REGION* DSW ='*I4) 

62 GOTO 500 

63 200 WRITE (5*201) IDS 

64 201 FORMAT (' ERROR IN CREATING WINDOW* DSW ='*I4) 

65 GOTO 500 

66 300 WRITE (5*301) IDS 

67 301 FORMAT (' ERROR DETACHING FROM REGION* DSW ='*I4) 

68 C 

69 500 CALL EXIT 

70 END 
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Dynamic Regions 
SOLUTION 



2. 



3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
.1.3 
14 
15 
16 
17 
18 
19 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦ TITLE 
♦I DENT 
*ENABL 



LEX82A 

/01/ 

LC 



9 Enable lower case 



y File LEX82A.MAC 



Program to create an named region (attached on 
creation)!' create a virtual address window (mapped on 
creation) r place ASCII data in to region* detach from 
the region and exitv leaving the region in existence* 

Task ~bui Id instructions ♦ 

Include WNDWS~1 option 

♦ MC ALL EXI T*S y RDBBK* y WDBBK* y CRRG$ t CRAW* 
♦ MCALL DTRG*yDIR*yQI0W*SyQI0W*C 



REG i 



RDB : 



WIN* 



CRRG* 



RDB 



?DPB for create region 



Define region with* 
Size 
Name 

Partition 
Protection 

Do not mark for 



= 2 (32* word blocks) 

MYREG 
= GEN 

= W0:None»SYiRWED» 
0U : RUED rGR: RUED 

delete on last detach 



Attach with write and delete access 
RDBBK* 2 y MYREG y GEN y <RS * NDL ! RS ♦ DEL ! RS ♦ WRT ! RS ♦ ATT> y 1 70000 



CRAW* 



WDB 



y DPB for create address window 



Define window with: 
APR 
S i ze 

Offset in region 
Length in region 



7 

2 (32* word blocks) 

(32* word blocks) 

2 (32* word blocks) 



WDB** 
y 

det: 
iosb: 

BUFF i 
MES : 
LEN 
DNMES t 

LDNMES 
? Error 
FCRRER : 

fcrwer: 
fdeter: 



M3P on create with write access 
WDBBK* 7 r 2 y y y 2 y <WS ♦ MAP ! WS ♦ WRT> 

DTRG* RDB y DPB for detaching region 

♦ BLKW 2 ? I/O status block 

♦ BLKB 80* i Input/Output buffer 

♦ ASCI I /ENTER ASCII CHARACTER: / 
♦ - MES 

.ASCII <15>/LEX82A HAS CREATED AND INITIALIZED/ 
♦ASCII / THE REGION/ 
= ♦ -DNMES 
format strings 

♦ASCIZ /ERROR CREATING REGION* DSW = %D*/ 
* ASCIZ /ERROR CREATING WINDOW* DSW = %D*/ 
♦ASCIZ /ERROR DETACHING FROM REGION* DSW = %D*/ 
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51 
52 
53 
54 
55 
56 
57 
58 
59 



F Q I ide: 

FQI1IE? 



fqi: 
fqi: 



!ie: 



♦ ASCII 
♦ASCIZ 

♦ ASCII 
♦ASCIZ 
♦ ASCIZ 
♦ ASCIZ 

♦ EVEN 



/DIRECTIVE ERROR ON READ AFTER PROMPT/ 
/ QIO* DSW = ZD./ 

!I/0 ERROR ON READ AFTER PROMPT QIO. ! 
/ CODE = ZD./ 

/DIRECTIVE ERROR ON WRITE QIO * DSW = ZD ♦ / 
!I/0 ERROR ON WRITE QIO ♦ CODE = ZD.! 



60 


START t 


D.IR$ 


♦REG 


y 


Create region 


o .1 




U CJ 


ERR1 


5 


Check for error 






1 IUV 


RDB+R.GIDr 


WDB+W.NRID ? Move region ID 


A'K 










y into WDB 








♦WIN 


y 


Create window 


O.J 




ore 


ERR2 


y 


Check for error 


66 




MOV 


♦160000y 


R5 


f Set b3se address in region 


A 7 




W J. uw *o 


#10 ♦ RPR v 


♦Sy^ly y^IOSBy y <#BUFF t ♦ 1 y * ♦MES y ♦LEN y ♦ ' $! 


68 








y 


Prompt and read data 


69 




BCS 


ERR3D 


y 


Check for directive error 


70 




TSTE< 


I0SB 


y 


Check for I/O error 


71 




BLT 


ERR 31" 


y 


Branch on I/O error 


72 




MOV 


#128* yRO 


y 


Region size in bytes 


73 




MOV 


♦BUFFyR4 




y R4 ~> character 


74 


LOOP ♦ 


MOVE! 


<R4) 9 (R5)+ 


y Move character to region 


75 




SOB 


ROyLOOP 


y 


Decrement counter and loop 


76 








y 


until done 


77 




QI0W*C 


lO.WVBySyl 


y y I OSB y r <DNMES y LDNME'S y 40> 


78 








y 


Write region created message 


79 




BCS 


ERR4D 


y 


Branch on dir error 


80 




TSTB 


IOSB 


y 


Check for I/O error 


81 




BLT 


ERR4I 


y 


Branch on I/O error 


82 




DIR* 


*DET 


y 


Detach from region 


83 




BCS 


ERRS 


y 


Check for error 


84 




EXIT$S 








85 


y Error 


code 








86 


ERR1 : 


MOV 


♦FCRRER f 


Rl 


y Create region error 


87 










y message 


88 




BR 


SHOERR 




y Branch to common code 


89 


ERR 2 1 


MOV 


♦FCRWERy 


Rl 


? Create window message 


90 




BR 


SHOERR 




y Branch to common code 


91 


ERR3D . 


MOV 


♦FQI IDE t 


Rl 


y QIO directive message 


92 




BR 


SHOERR 




y Branch to common code x 


93 


ERR3I J 


MOV 


lOSByRO 




y Extend sign on status 


94 




MOV 


R0y$DSW 




y and move to arg block 


95 




MOV 


♦FQI 1 IE y 


Rl 


y QIO I/O error 


96 




BR 


SHOERR 




y Branch to common code 


97 


ERR4D : 


MOV 


♦FQI2DE r 


Rl 


y QIO write dir error 


98 




BR 


SHOERR 




y Branch to common code 


99 


ERR4I : 


MOV 


IOSBvRO 




y Extend sign on status 


100 




MOV 


R0y$DSW 




y and move to arg block 



102 



Dynamic Regions 
SOLUTION 



101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 



err; 



shoerr: 



MOV 

BR 

MOV 

MOV 
MOV 
CALL 
QIOW*S 

EXIT*S 

♦ END 



#FQ-I2IE»R1 

SHOERR 

#F DETER y Rl 

#BUFFyRO 
#*DSU»R2 
*EDMSG 
*IO,WVBy#I 



y QIO write err message 

? Branch to common code 

r Detach region message 

y Set up for *EDMS6 



t Edit message 
iy*ly t , ><#BUFF*R1»#40> 

5 Display message 
y Exit 



START 



3 
4 

5 
6 
7 
8 
9 
10 
.1. 1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



PROGRAM LEX82A 
File LEX82A ♦ FTN 

LE.X82A creates a named region (attached on creation)? 
creates a virtual address window (mapped on creation) r 
places an ASCII character input at TI» at all locations 
in the region y detaches from the region and exits r 
leaving the region in existence* 

Task-build instructions i 

>LINK/MAP/0PTI0NS/C0DEtFPF LEX82AyLBtl.:iy l:lF0R0TS-• 
■•••>/LIBRARY 

Opt ion? VSECT-DATA : 160000 : 20000 
Option? WNDWS==1 
Option? < RETA- 



RDS :::: Region Definition 
f ol lowing properties* 

Size = 
Name = 
Partition = 
Protection -.= 



Block for region with the 



Do not 
Attach 



mark 
with 



for 



= 2 (32. word blocks) 
= MYREG 
= GEN 

= WOtNoneySYfRWED 
0W ♦ RUED y GR ♦ RWED 
delete on last detach 



write and delete access 



UDB ~ Window Definition Block for window with the 
following properties* 

APR = 7 

Size 

Offset in resfion 
Length in resfion 



~ 2 (32* word blocks) 

- (32* word blocks) 

- 2 <32* word blocks) 



Map on create with write access 
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37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 

72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 



INTEGER RDB(8) yWDB<8) 
Array for dynamic region* variable for ASCII 
BYTE ARRAY <1 28 ) y CHAR 
COMMON /DATA/ ARRAY 



character 



Initialize the RUB 

DATA RDB/0 ? 2 y 3RMYR y 3REG y 3RGEN y 3R 

Initialize the WDB 

DATA WDB/ " 3400 y0y2y0y0*2y" 202 1 0/ 



y "000152y "170000/ 



C Call routine to create and attach region 

CALL CRRG ( RDB y IDS ) 
C Check for error 

IF<IDS»LT.0)G0T0 800 
C Create address window and map to region 

WDB<4)=RDB<1) 

CALL. CRAW ( WDB y IDS ) 
C Check for error 

IF < IDS ,LT ,0)6070 810 

WRITE (5y50) 
C Get ASCII character 

50 FORMAT < 'CENTER ASCII CHARACTER ♦ ') 

READ (5y 60) CHAR 
60 FORMAT (Al) 

C Place data in region 

DO 80 J=lyl28 

ARRAY (J) -CHAR 
80 CONTINUE 
C Detach from region 

CALL DTRG( RDB y IDS) 
C Check for error 

IF<IDS,LT»0)G0T0 820 
C Write message 

TYPE *y'LEX82A HAS CREATED AND INITIALIZED THE 

1 REG I ON ' 
C Branch to common exit 

GOTO 1000 

create error message 
WRITE(5y805)IDS 

FORMAT ( ' ERROR IN CREATING REGION y DSW = 'yI4) 
common exit 
GO TO 1000 

attach error message 
WRITE<5yS15)IDS 

FORMAT ( ' ERROR IN CREATING WINDOW AND MAPPING r 
1DSW = 'yI4) 
GOTO 1000 

detach error message 
WRITE (5y 825) IDS 

FORMAT < ' ERROR IN DETACHING FROM REGION y DSW =• 
lyI4) 
C Common exit 
1000 CALL EXIT 
END 



C Write 

800 

805 

C Go to 

C Write 

810 

815 



C Write 

820 

825 
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3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
.1 6 
17 
18 
.1.9 
20 

21 

2 2 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦ TITLE LEX82B 
♦I DENT /01/ 

♦ ENABL. LC 



y Enable lower case 



File LEX82B*MAC 



Program to attach to arr existing resfiony create a 
v i r t u a 1 a d d r e s s w :i. n d o w ( in a p p e d o n c r e a t i on) y m o d :i. f w 
the first byte of the region? read ASCII data from the 
re?*3iony detach from the region and mark it for de.letey 
a n d f i n 3 1 1 w e x it* T h e re si i o n will b e d e I e t e d o n 1 a s t 
detach ♦ 

Assemble and task-build instructions? 

>MACR0/LIST LB t t 1 , 1 DPR0GMACS/LIBRARY r dev : Cuf d3- 

->LEX82B 

> L I NK/MA P / P T I ON L E X 8 2 B y L B i L" 1 y 1 1 P R G S UBS/ L I B R A R Y 
> Opt ion? WNDWS-1 

>0ption? <RET> 



♦MCALL E X I T $ S y R D B B K $ ? W D B B K * y A T R G $ C y System 

♦ H C A L I... C R A U) $ y D T R G * S t D I R $ y Q 1 U * S » m a c r o s 

♦ MCALL. tU'RERR y I0ERR y Supplied macros 
RDBBK* y MYREG y GEN , <RS ♦ WRT ! RS . RED ! RS ♦ MDL ! RS , DEL> 
Define region with? 

Size ~ (32* word blocks) 

returned after attach 
Name ~ MYREG 

Partition - GEN 

Mark for delete on last detach 
Attach with ready write and delete access 



rub: 



win; 
udb: 



CRAW* WDB JDPB for create address window 

WDBBK* 7 y 200 y 1 y y <WS . MAP ! WS ♦ RED ! WS ♦ WRT> 
D e f i n e w i n d o w w i t h i 

APR = 7 

Size = 200 (32. word blocks) 

Offset in region ~ (32* word blocks) 
Length in region - (32* word blocks) 

returned when mapped 
Map on create with read and write access 



iosb: ♦BLKW 2 
RSIZ =128* 

start; atrg*c rdb 

BCS ERR1 



f I/O status block 

y Re si ion size in bytes 

y Attach to region 

y Check for error 



MOV R D B + R ♦ G I D y W D B + W ♦ N R I D y Move region ID 

y into WDB 

DIR$ *WIN y Create window 
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51 




BCS 


ERR2 


y Check for error 


52 




MOV 


#160000 


yR5 5 Set base addr in region 


53 




MOVB 


#'Zy<R5) ? Place Z in 1st byte 


54 




MOV 


#RSIZ?R4 ? Size of region in bytes 


55 




MOV 


#64. »R3 


y Chars per line 


56 


loop: 


QI0W*S 


♦I0.WVB 


y #5 y #1 y r #IGSB y y <R5 r R3 t #40> 


57 








? Write data 


58 




BCS 


ERR3D 


y Check for dir error 


59 




TSTB 


IOSB 


y Check for I/O error 


60 




BLT 


ERR3.T 


? Branch on error 


6.1 




SUB 


R3yR4 


y Compute chars left 


62 




BLE 


DONE 


y Branch if done 


63 




ADD 


R3yR5 


y Point to next char 


64 




CMP 


R3yR4 


y Check for < 64. chars 


65 








y left to print 


66 




BLE 


LOOP 


y > or ~y print next line 


67 




MOV 


R4yR3 


y <y print only that many 


68 








y chars 


69 




BR 


LOOP 


y Print the line 


70 


done : 


DTR6*S 


*RDB 


y Detach from region 


71 




BCS 


ERR 4 


y Check for error 


72 




EXIT*S 






73 


y Error 


handling code 




74 


erri: 


DIRERR 


<ERR0R 


ATTACHING TO REGION.:- 


75 


ERR 2 ♦ 


DIRERR 


<ERR0R 


CREATING WINDOW AND MAPPINGS- 


76 


ERR3D t 


DIRERR 


< ERROR 


WRITING DATA> 


77 


ERR 3 1 X 


I0ERR 


#:i:osBy< 


ERROR WRITING DATA> 


78 


ERR 4 ♦ 


DIRERR 


< ERR OR 


D E T A C H I N G F R M R E G 1 N > 


79 




♦ END 


START 




1 

2 


C 


PROGRAM 


LEXS2B 




3 
4 


C File 

r> 


LEX82B ♦ F 


TN 




5 


C FOR TAN program to attach region MYREG in partition GEN 


6 


C (which was created by 


LEX82A)y create a window and map 


7 


C it to 


the region upon 


■ creation* place a Z in the first 


8 


C byte? 


then read data 


out of the region y and detach 


9 


C f rom 


ity deleting it 


in the process* 


10 


C 








11 


C Task- 


build with these 


options i 


12 


C 




VSECT-DATA : 1 60000 : 20000 


13 


C 




WNDWS=1 





14 C 
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.1. 

16 




I NTEGER RDB ( 8 ) y WDB < 8 ) 


17 




BYTE I DATA (128) 


.18 


C 


Th.i. s common block will 3lidn with the address window 


.19 




COMMON /DATA/IDATA 


20 


c 


RDE< "•" Region definition block with the following 


21 


c 


properties* 


22 


c 


Size ( 32 ♦ -word blocks) 


23 


c 


filled in when attached 


24 


c 


Name MY REG 


25 


c 


Partition GEN 


26 


c 


P r o t ec t i on W0 * none y S Y ♦ RWEB y OW i RUED y GR J RUED 


27 


c 


Mark for delete on last detach 


28 


c 


Attach with delete* write and read access 


29 


c 


Initialize the RDB 


30 




DATA RDB /0 v y 3RMYR y 3REG y 3RGENy 3R » "00021 3 f 


3 .1 


c 


1 " 170000/ 


32 
33 


c 


WDB - Window definition block with the following 


34 
35 


c 
c 


properties* 

a r*» r*t "') 

flrh / 


36 


c 


Size 200(8) (32* -word blocks) 


37 


c 


Offset in region (32 ♦-word blocks) 


38 


c 


Length of window (32* -word blocks) 


39 


c 


filled in when mspr-'ed 


40 


c 


Map on create with read access 


4.1 


c 


Initialize the WDB 


42 




DATA WDB /"3400y0y "200y0y0y0y "203*0/ 


43 


c 




44 


c 


Attach region 


45 




CALL ATRG (RDBylDS) 


46 


c 


Check for error on attach 


47 




IF (IDS .LT. 0) GOTO 100 


49 


c 


Move r e*S ion id to WDB 


49 




WDB(4):;-RDB( 1 ) 


50 


c 


Create and map window 


51 




CALL CRAW (WDBylDS) 


52 


c 


C h e c k for error 


53 




IF (IDS ♦ LT ♦ 0) GOTO 200 


54 


c 


Place ASCII Z in first byte 


55 




I DATA ( 1 )«'Z' 


56 


c 


Print contents of region 


57 


10 WRITE <5»il> IDATA 


58 


11 


FORMAT (' 'y64Al) 


59 


C 


Detach from region and delete it 


60 




CALL DTRG (RDBylDS) 


61 


C 


Check for error 


62 




IF (IDS ♦LT. 0) GOTO 300 


63 


c; 


And Jump to exit 


64 




GOTO 500 
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65 


C 








66 


C Error 


messages 






67 


100 


WRITE <5» 


101) IDS 




68 


101 


FORMAT ( ' 


ERROR ATTACHING TO REGION y DSW ~' 


1 14) 


69 




GOTO 500 






70 


200 


WRITE <5» 


201) IDS 




71 


201 


FORMAT ( ' 


ERROR IN CREATING WINDOW* DSW = '> 


14) 


72 




GOTO 500 






73 


300 


WRITE <5> 


301) IDS 




74 


301 


FORMAT ( ' 


ERROR DETACHING FROM REGION » DSW 


9 I A) 


75 
76 


C 

500 


CALL EXIT 






77 




END 
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3. 



3 
4 

5 
6 
7 
8 
9 

10 

11 
12 
13 
14 
.1.5 
16 
17 
18 
19 
20 
21 
22 
23 



26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



♦TITLE SNDREF 
♦I DENT 701/ 
♦ENABL LC 



r File LEX83A*MAC 



y Enable lower case 
y y EX 



Modified to send to a 2nd receiver RCVRF2 in yyEX 
addition to RCVREF yyEX 

LEX83A creates a 64-word (2 block) unnamed region and 
fills it with ASCII characters* It then sends the 
region to RCUREFy and then waits for RCVREF to receive 
the region* (This is signalled by event flag #!♦) It 
then prints a message and exits* Since the area is 
n n a m e d y i t i s a u t o m a t i c a 1 1 y deleted when the last 
attached task exits* 

Assemble and task -build instructions* 

>MACR0/LIST LB i C 1 y 1 1PR0GMACS/LIBRARY r dev ♦ L"uf d3~ y yEX 
->LEX83A 

>L INK/MAP/OPTION L.EX83A y LB ♦ C 1 y 1 IIPROGSUBS/LIBRARY 
Option? UNDWS-1 

Install and run instructions* RCVREF must be installed* 
LEX83B must be installed as RCVRF2* Run LEX83A first y 
then run RCUREF and RCURF2 (either one first) 



* MCALI... 

* MCALI... 
♦ MCALL 

* MCALI... 
.NLIST 



QI0W*Cyai0W*SyRQST*C y System macros 
WTSE*C y EXIT*S y RDBBK* t WDBBK* 
CRRG*S y CRAWtS t SREF*C 



DIRERR 
BEX 



Supplied macro 
SUPPRESS DATA 



? Define region with* 



RPR0 
RSTAT 

rdb: 



Size « 2 32- WORD BLOCKS 

Name = none 

Partition ~ GEN 

Protection ~ W0 ♦ none y GR ♦ RUED 

OW:RWEDySY:none 

Attach on create 

Read and write access desired on attach 
= 170017 

= RS ♦ ATT ! RS ♦ RED ! RS ♦ WRT 
RDBBK* 2 y y GEN y RSTAT y RPRO 
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48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
7.1 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 



Define window with* 

APR - 7 

Size ~ 2 

Offset in region - 

Length to map = 



WSTAT 

wdb: 

i 

mesi : 

LMES1 
MES2 J 

LMES2 



Map on create with 
« WS.MAP.'WS.WRT 



read 



32-word blocks 
32-word blocks 
32-word blocks (defaults 
to smaller of region 
size and window length) 
and write access 



WDBBK* 7t2f 0*0y > WSTAT 



♦ASCII / 
♦ASCII / 
=.-MESl 
♦ASCII / 
♦ASCII / 
♦ - MES2 



L.EX83A HAS CREATED THE REGION AND HAS/ 
SENT IT TO RCVREF AND RCVRF2 ♦ / ??EX 



RCVREF 
LEX83A 



AND RCVRF2 HAVE RECEIVED 
IS NOW EXITING ♦ / 



IT*/? ?EX 
? ? EX 



♦ LIST 

♦ EVEN 

♦ ENABL 

start: crrg*s 

DCS 
MOV 



CRAW$S tUDB 
BCS 2* 

MOV WDB+W,NBAS»R0 
9 Fill region with all M's 

MOV *64tR3 
20$: MOV #"MMy<R0)f 

SOB R3 i- 20$ 

? Send the region to RCVREF ♦ 
i R C V R E F r e c i eves.it 

SREF$C RCVREF y WDB ? 1 



BEX ? Show binarw extensions 

LSB ? Enable local symbol 

? blocks 

#RDB i Create and attach to 

i region 

1$ f Branch on dir error 

RDB+R ♦ G I D 9 WDB+ W ♦ NR I D ? Copy region ID 

? into WDB 
9 Create and map window 
9 Branch on dir error 
9 base V^A* of region 



BCS 

SREF*C 
BCS 

QI0W$C 
BCS 

WTSE$C 
BCS 

WTSE$C 
BCS 



y count of words to move 

9 Move in an ASCII M 

9 Loop through region 

EF 1 will be set when 

9 Send by reference to 
i RCVREF 

i Branch on dir error 

i Send by reference ??EX 
9 to RCVRF2 9 ?EX 

9 Branch on dir error?? EX 



3$ 

RCVRF2r WDB*3 
7$ 

I0*WVB*5>2> 9 9 jKMESI rLMESi 9 AO 



4$ 
1 

5$ 
3 

8$ 



Display 
? message 
Branch on dir error 
Wait for RCVREF to get 
the region 
Branch on dir error 
Wait for RCVRF2 to ??EX 
get the region ??EX 
Branch on dir error? ?EX 
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Dynamic Regions 



SOLUTION 



99 




GI0W*C 


IO.WVB 




2 y ft t <MES2 ? LMES2 y 40S- t D i 


splay 


100 










y mess 


age 


101 




BCS 


6$ 




y Branch on d.ir error 


102 




EXIT*S 






y Exit 




103 


y Error 


code 










104 


i$: 


DIRERR 


< ERR OR 


ON 


CREATE OR ATTACH REGIONS- 




105 


2$: 


DIRERR 


< ERROR 


ON 


CREATE OR MAP WINDOWS- 




106 


3$: 


DIRERR 


< ERR OR 


ON 


SEND BY REFERENCES- 




107 


4$: 


DIRERR 


< ERROR 


ON 


1ST WRITES- 




108 


5* J 


DIRERR 


<ERROR 


ON 


WAIT FORS- 




109 


6*: 


DIRERR 


< ERR OR 


ON 


2ND WRITES- 




110 


7$: 


DIRERR 


< ERROR 


ON 


2ND SEND BY REFERENCES- 


9 yEX 


111 


S'l> J 


DIRERR 


< ERROR 


ON 


2ND WAIT FORS- 


y yEX 


112 




♦ END 


START 









3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 



PROGRAM SNDREF 
File LEX83A ♦ FTN 

Modified to send the region by reference to RCVRF2 HEX 
in addition to RCVREF HEX 

This program creates a 64-word unnamed region and 
fills it with ASCII characters* It then sends it by 
reference to task RCVREFy and waits for RCVREF to 
receive the region* (This is signalled by event flag 
*!♦) SNDREF then prints a message and exits* Since 
the area is unnamed y it is automatically deleted when 
the last attached task exits* 

Task -bu i 1 d i ns t rue t i ons ♦ 

S LINK/MAP/CODE *FPP/0PT IONS LEX83A y LB t C 1 y 13F0- ! ! EX 

-SPOTS/LIBRARY ! !EX 

Option? WNDWS=1 

Option? v"SECT~DATA * 160000 ♦ 200 

Option? <RET> 

Install 3nd run instructions* RCVREF must be installed* 
LEX83B must be installed under the name RCVRF2. ! ! EX 
Run LEX83A first y then run RCVREF and RCVRF2 (in ! ! EX 
either order) 

RDB == Region definition block with the following 
properties* 

Size 2 32 -word blocks 

Name none 

Partition GEN 

Protect! or. WO : none y S Y : RUED y OW : RWED y 

GRtnone 
Attach on creation 

Read and write access desired on attach 
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Dynamic Regions 



SOLUTION 



39 C WDB ~ Window definition block with the following 

40 C properties* 

41 C APR 7 

42 C Size 2 32-word blocks 

43 C Offset in region 32- word blocks 

44 C Length of region 2 32-word blocks 

45 C Map on create with write access 

46 C 

47 INTEGER RDBCS) »WDB<8> »RCv"<2> »RCV2<2) ! ! EX 

48 C This common block will align with the address window 

49 COMMON /DATA/ I DATA (64 ) 

50 C Initialise the RDB 

51 DATA RDB/0 y " 2 y * * 3RGEN y 3R y " 43 y " 170017/ 

52 C Initialize the WDB 

53 DATA WDB/ M 3400y0y "2y0y0y "2y "202y0/ 

54 C Name of receiver task 

55 DATA RCV/3RRCV y 3RREF/ 

56 DATA RCV2/3RRCV»3RRF2/ M EX 

57 C Code 

58 CALL CRRG(RDBy IDS) ! Create region 

59 IF (IDS ♦ LT ♦ 0) GOTO 100 ! Check for error 

60 WDB(4)=RDB(1> ! Move region id to WDB 

61 CALL CRAW ( WDB y IDS ) ! Create window 

62 IF (IDS .LT* 0) GOTO 200 ! Check for error 

63 C Fill region with data 

64 DO 10 1=1 y 64 

65 .1.0 IDATA<I>-'MM' 

66 C Send-by- reference to receiver tasky set event flag 1 

67 C when received 

63 CALL. SREF(RCMy 1 y WDBy vIDS) 

69 IF ( IDS ♦LT* 0) GOTO 400 ! Check for error 

70 C Send-by- reference to 2nd receiver? RCv"RF2y use event!! EX 

71 C flag 2 ! !EX 

72 CALL SREF ( RCV2 y 2 y WDB y y IDS) ! ! EX 

73 IF (IDS * LT ♦ 0) GOTO 450 ! Check for error ! ! EX 

74 TYPE *y' LEX83A HAS CREATED THE REGION AND HAS 

75 1 SENT IT TO RCVREF AND RCVRF2* ' ! Display ! ! EX 

76 C ! message ! ! EX 

77 CALL WAITFR(lylDS) ! Now wait for reception 

78 IF (IDS ♦ LT ♦ 0) GOTO 500 ! Check for error 

79 CALL WAITFR ( 2 y IDS ) ! Wait for RCVRF2 to ! ! EX 

80 C ! receive ! ! EX 

81 IF (IDS *LT* 0) GOTO 550 ! Check for error ! ! EX 

82 TYPE *y' RCVREF AND RCVRF2 HAVE RECEIVED IT ♦ 

83 1 LEX83A IS NOW EXITING*' ! Write message ! ! EX 

84 GOTO 600 ! And go exit 
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85 C Error handling code 

86 100 WRITE (5*110)1 DS 

87 110 FORMAT (' ERROR CREATING REGION * DSW ~ '»I4> 
98 GOTO 600 

89 200 WRITE (5* 210) IDS 

90 210 FORMAT (' ERROR CREATING WINDOW * DSW ~ '*I4) 

91 GOTO 600 

92 400 WRITE (5*410) IDS 

93 410 FORMAT (' ERROR IN SEND-BY -REFERENCE * DSW » '*I4) 

94 GOTO 600 

95 450 WRITE (5*460) IDS 

96 460 FORMAT (' ERROR IN 2ND SEND--BY-REFERENCE * DSW 

97 1 = ' *I4) ! !EX 

98 GOTO 600 ! ! EX 

99 500 WRITE (5* 510) IDS 

100 510 FORMAT ( ' ERROR ON WAIT * DSW = ' *I4) 

101 GOTO 600 ! !EX 

102 550 WRITE (5*560)IDS ! ! EX 

103 560 FORMAT (' ERROR ON 2ND WAIT* DSW = '*I4> !!EX 

104 C 



105 600 CALL EXIT 

106 END 



3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



♦TITLE 

♦ I DENT 

♦ ENABL. 



LEX83B 

701/ 

LC 



* Enable lower case 



? File LEX83B*MAC 



Second reciever for SNDREF (modifed to LEX83A)* 

Program to recei ve-bw-ref erence (mapped on creation)* 

modify the first data byte in the resiion* 

read ASCII data from the resfion* detach from the 

region and exit* The region will be deleted on last 

detach* 

The first word in the region contains the count of the 
number of bytes of data in the region* 

Assemble and task build instructions* 

.•••MACRO/LIST LB: CI * LIPROGM ACS/LIBRARY *dev: Cufd 3 
->LEX83B 

LINK/MAP/OPTIONS LEX83B * LB : C 1 * 1 UPROGSUBS/LIBRARY 
option? WNDWS-1 
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SOLUTION 

23 v 

24 y Install and run instructions i RCVREF must be installed* 

25 9 LEX83B must be installed as RCVRF2* Run LEX83A first 

26 9 and then run RCVREF and RCVRF2 (in either order)* 

27 9 

28 ♦ MO ALL EXIT*SyWDBBK*>RREF* 9 External system 

29 * iiCALL QIOW*S»CRAW*>niR* 9 macros 

30 ♦ iiCALL DIRERR ylOERR 9 External supplied 

31 9 macros 

32 ? Define window with* 

33 9 APR « 7 

34 9 Size = 200(8) (32* word blocks) 

35 9 These are filled in on receive as set by sender* 

36 y Offset in region ~ (32* word blocks) 

37 y Length in region ™ (32* word blocks) 

38 y reset after mapping 

39 y Access ~ 

40 5 Note* Must map separately (or as part of receive) 

41 WDB i WDBBK* 7t2 

42 ? 

43 REG* RREF* WDB y Set up DPB for RREF* 

44 WIN* CRAW* WDB 9 Set up DPB for CRAW* 

45 10 SB i ♦ BLKW 2 9 1/0 status block 
46 

47 START** DIR* #WIN 9 Create virtual address 

48 9 window 

49 BCS ERR1 9 Branch on error 

50 BIS #WS*MAPyWDBfW*NSTS 9 Set WDB to map on 

51 y receive 

52 DIR* #REC ? Receive by reference 

53 J and map 

54 BCS ERR2 9 Branch on error 

55 MOV #1 60000 y R5 9 Set base address in 

56 y region 

57 MOV WDBfW*NLENyR3 9 Size of reSion to R3 

5 8 M U L # 6 4 ♦ y R 3 9 C o n v e r t b 1 o c k s t o byte s 

59 MOV #'9y(R5) y Modify first data byte 

60 9 

6.1. QI0W*S #10 * WVB y #5 y *1 r y #I0SB y y <R5 y R3 y *4()> 9 Wri te 

62 9 data 

63 BCS ERR3 y Branch on directive 

64 y error 

65 TSTB I0SB 9 Check for 1/0 error 

66 BLT ERR4 y Branch on error 

67 EXIT*S 

68 5 Error code 

69 ERR.1. ♦ DIRERR <ERR0R CREATING VIRTUAL ADDRESS W1'ND0W> 

70 ERR2 1 DIRERR <ERR0R ON RECEIVE AND MAP> 

71 ERR3 1 DIRERR <ERR0R ON WRITE QI0> 

72 ERR4 1 10 ERR #I0SBy<ERR0R ON WRITE QI0> 

73 ♦ END START 
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PROGRAM LEX83B 

C 

C File LEX83B ♦ FTN 
C 

C L.EX83B receives by reference a region from the task 
C LEX83A* It maps to the region* modifies the first 
C bytey prints out the contents? and exits* The region 
C is deleted on last detach* 
C 

C Task -build instructions J Include these options 
C WNDWS=1 

c vsect=data: 160000 : 20000 

c 

C Install and run instructions* LEX83B must be installed* 
C as RCVRF2 ♦ RCVREF must be installed* Run LEX83A first r 
C then run LEX83B and RCVREF (in either order)* 



C 

C WDB ~ Window definition block witht 
C APR 7 

C Si He 200(8) 32-word blocks 

C Allow for full APR 

C Offset in region 32-word blocks 

C Length of region 32- word blocks (to be filled 

C in on receive) 

C Read and write access 

INTEGER WDB (8) 

DATA WDB/"3400?Oy " 2 y y y "0y "3*0/ 
BYTE DATA (128) 



C This common block will align with the address window 
COMMON /DATA/DATA 

C 

C Create address window — do not map at this time 

CALL CRAW ( WDB y IDS) 
C Check for error on create 

IF (IDS ♦ LT ♦ 0) GOTO 200 
C Now set WDB status for mapping — will be done by 
C recei ve-by-ref erence 

WDB<7)=WDB(7)+"200 
C Receive data and map 

CALL RREF(WDBy y IDS) 
C Check for error 

IF ( IDS ♦ LT ♦ 0) GOTO 100 
C Modify first value 

DATA( 1 ) ~ ' 9 ' 

C Calculate number of bytes of data - length in blocks 
C returned at WDB(6) 

NCHAR = 64*WDB(6) 

WRITE(5ylO) ( DATA ( I ) y 1 = 1. y NCHAR) 
10 FORMAT (' ' y 64 A 1 ) 

C Go exit 

GOTO 300 
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52 


C 


Error messages 






53 


100 


WRITE<5rllO)IDS 






54 


110 


FORMAT ( ' ERROR 


ON RECEIVE-BY -REFERENCE 


t DSW 


55 




GOTO 300 






56 


200 


WRITE<5>210>IDS 






57 


210 


FORMAT ( ' ERROR- 


CREATING WINDOW t DSW = ' 


flA) 


58 


300 


CALL EXIT 






59 




END 
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File I/O 



TEST/EXERCISE 

Next to each activity, write for open, I for I/O operation, 
or C for close, to identify which step of file I/O is 
involved. 

a. Records are read from the file. 



b. Access rights to the file are checked. 



c. Existing file is located on disk. 

d. Internal buffers are placed in a pool for re-use. 

e. Records are written to a file. 



Describe three functions performed by the Files-11 ancillary 
control processor (F11ACP) when a task creates a new file 
containing seven blocks. 



117 



File I/O 



TEST/EXERCISE 



3. For each of the following, tell whether FCS only, RMS only, or 
both can be used for file I/O. If both can be used, identify 
which you would prefer and why. 

a. A teacher has a file with one record for each student. 
The students are identified by student number (1 - 100). 
Each record contains the student's test scores (space is 
reserved for 10 scores) and his average. The instructor 
adds new test scores and updates the averages as he gives 
tests. In addition, he wants to access any student's test 
scores and test average using the student number. 
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File I/O 



TEST/EXERCISE 



A company has a file of customer records. Each record 
contains the company name, the address, the contact 
person, and the equipment bought. At different times, the 
records are accessed using company name, city, or contact 
person . 



A company uses COBOL for its applications. It has a 
payroll file which is processed in order every two weeks. 
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File I/O 



SOLUTION 

Next to each activity, write for open, I for I/O operation, 

or C for close, to identify which step of file I/O is 
involved. 



I 


a . 


Records are read from the file. 





b. 


Access rights to the file are checked. 





c . 


Existing file is located on disk. 


c 


d. 


Internal buffers are placed in a pool for re-use. 


I 


e . 


Records are written to a file. 



Describe three functions performed by the Files-11 ancillary 
control processor (F11ACP) when a task creates a new file 
containing seven blocks. 

Any three of the following: 

Allocate a file header 
Initialize the file header 
Set up file retrieval pointers 
Create a directory entry 
Allocate blocks to the file 
Connect a task's LUN to the file 
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File I/O 



SOLUTION 



3. For each of the following, tell whether FCS only, RMS only, or 
both can be used for file I/O. If both can be used, identify 
which you would prefer and why. 

a. A teacher has a file with one record for each student. 
The students are identified by student number (1 - 100) . 
Each record contains the student's test scores (space is 
reserved for 10 scores) and his average. The instructor 
adds new test scores and updates the averages as he gives 
tests. In addition, he wants to access any student's test 
scores and test average using the student number. 

Either FCS or RMS may be preferred. 
FCS 

• Easier to program (in MACRO-11) 

• Less overhead (although very close if using a relative 
file rather than an indexed file) 

• File must have fixed length records with record 
numbers corresponding to student numbers 

RMS 

• If a relative file is used, can automatically skip 
over deleted records (if student leaves or drops the 
course) 

• In FORTRAN, no harder to program 

• Not much overhead for a relative file 

• File must be a relative file with fixed length 
records, with cell numbers corresponding to student 
numbers 
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SOLUTION 



A company has a file of customer records. Each record 
contains the company name, the address, the contact 
person, and the equipment bought. At different times, the 
records are accessed using company name, city, or contact 
person. 

Best answer is RMS only since an indexed file with 
multiple keys is needed for fastest access. FCS can be 
used, but access by key value is impossible. You would 
have to step through the file, checking all records, to 
locate the one you want. 

A company uses COBOL for its applications. It has a 
payroll file which is processed in order every two weeks. 

RMS only; COBOL is supported under RMS, but not under 
FCS. 
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File Control Services 



TEST/EXERCISE 



1. Modify CRESEQ so that each record in the file contains the 
text input from the terminal preceded by "AAAA" . 

2. Write a task that appends records to a file you have created 
(using one of the FCS example programs or the editor) . 

3. In MACRO-11, modify the task CREFXA so that input from the 
terminal uses FCS routines instead of QIO directives. 

4. Write a task that requests input from a terminal of the form: 

n, text 

Use the input to update the nth record of FIXED. ASC , which has 
fixed length records. Use random access and do not truncate 
the file. 

5. In MACRO-11, modify the task BL0CK1 or BL0CK2 so that it 
writes or displays two virtual blocks at a time. 

6. (Optional) In MACRO-11, modify the task CSI so that the 
subroutines DISPLY and DELETE actually display and delete the 
file. Caution: DELET$ delete the highest version of a file 
if no version number is specified. (See Chapter 6 of the 
IAS/RSX I/O Operations Reference Manual for information about 
the routines GCML and CSI.) 
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File Control Services 



SOLUTION 



l. 



3 
4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦ TITLE C RES EG 
♦I DENT /Ol/ 
♦ ENABL LC 

File LEX101»MAC 

Modified to preced each record with AAAA 

CRESEQ creates a file VARI»ASC* It reads 
records from Tl'fy and places them in the file* 
A ~Z terminates input and closes the file* 

Assemble and task-build instruct ions? 

MACRO/LIST LB: CI ? 1 3PR0GMACS/LIBRARY y dev : Cuf d."J- 
••->CRESEG 

LINK /MAP CRESEQ? LB* CI r 1 3PR0GSUBS/LIBRARY 

♦MCALL EXST$CyQI0W*CyQ10W$yDIR* r System macros 

♦ MCALL FSRSZ* y FDBDF* y FDAT$ A y FDRC*A y FDQP$A y 
♦ MCALL NMBLK*yOPEN*Wy PUT* y CLOSE* ? 

♦ MCALL D I R E R Ry 10 E R R y F C S E R R ? S u p plied m a c r o s 

FSRSZ* 1 y 1 file for record I/O 

y Define file descriptor block for VARI»ASC 
FDB ♦ 



FDBDF* 
FDAT*A R ♦ VAR y FD ♦ CR 



FDRC*A y BUFF 



FD0F*A 



FNAME 



FNAME: NMBLK* VARIyASC 

y Local Data 

buff: ♦ asci i /aaaa/ 

inbuf: .blkb so* 

iost: ♦ blkw 2 



Allocate the FDB 
Variable length records y 
L i s t i n g - i in p 1 i e d 
ca r r i asie retu rn y 1 i ne 
feed 

Seauential access and 
record I/O by 
default y BUF r F is 
user record buffer 

Use LUN ly file spec 
at FNAME 

"VARI ♦ ASC" 



USER RECORD BUFFER 
I/O STATUS BLOCK 



y y EX 
y y*EX 



♦ LIST 

♦ EVEN 



BEX 



♦ENABL LSB 
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51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 



start: 



Open file for write* call ERR1 if open fails 
0PEN*W #FDB rn>M ERR.1. 
record from terminal y put to file* 



i Get 

io$: 



QI0U*C I0*RVBy5yly ylOSTy y<INBUFy80*> f 



EX 



exit: 



BCS 


ERR2D 


y 


B r a n c h o n direct i v e 






y 


error 


TSTB 


I0ST 


y 


Check for I/O error 


BLT 


ERR2I 


r 


Branch on I/O error 


MOV 


10ST+2yRl 


y 


Number of bytes input 


ADD 


#4»R1 


y 


Add 4 for 4 A's y?EX 


PUT* 


#FDBy yRl 


y 


Put record to file 


BCS 


ERR 3 






BR 


10* 


y 


GET NEXT RECORD 


CLOSE* 


#FDB J-ERR4 


y 


Close file 


EXST*C 


EX* SUC 


y 


EXIT STATUS IS 1 


♦ SBTTL 


ERROR HANDLER 






code - 


Close file if 


nece 


ssaryy display error 



y message and exit 



erri: 

ERR2D : 
ERR2I : 



ERR3 : 
ERR4 : 



FCSERR *FDB r <ERR0R OPENING FILE> 
DIRERR < DIRECTIVE ERROR ON READ> 
CMPB #IE»E0F*I0ST y Is it ~Z? 
B E Q EX I T y I f e a u a 1 r c 1 o s e f i 1 & 

i and exit 

l'OERR #I0STy<ERR0R ON READ> y Display error 

y message and exit 
CLOSE* #FDBy ERR4 y Close file 

FCSERR #FDB y <ERR0R WRITING RECORD.:- 
FCSERR *FDBy<ERROR CLOSING FILE> 
♦END START 
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SOLUTION 



1 

2 


C 




PROGRAM CRESEQ (CREATE FILE SEQUENTIALLY 


3 


C 


FILE 


LEX101 ♦ FTN 


4 


C 






5 


C 


Modified to precede each record with AAAA !!EX 


6 


C 






7 


C 


This 


task creates a file of VARI»ASC of 


8 


C 


variable-length records using sequential record acce 


9 


C 


The 


records are input from the terminal and copied ti 


10 


C 


the 


file* The process stops when the operator types 


11 


C 


CTRL/Z 3t the terminal* 


12 


C 






13 






BYTE BUFF (84) , INBIJF<80> HEX 


14 






EQUIVALENCE < BUFF < 5 ) > INBUF < 1 ) ) HEX 


15 






INTEGER LEN 


16 






DATA BUFF < 1 ) >-BUFF<2> r BUFF ( 3 ) ,BUFF<4) 


17 






1 /' A' > ' A' r 'A' > 'A'/ 


18 


C 






19 


c 






20 


c 


OPEN 


FILE 


21 


c 






22 


c 


Default access is sequential 


23 


c 


Default is formatted 1/0 for sequential files 


24 


c 






25 






OPEN <UNIT=1»NAME*'VARI.ASC / r TYPE™ ' NEW ' > 


26 






1 CARRIAGEC0NTR0L~ 'LIST ' > 


27 


c 






28 






TYPE * r ' TYPE IN TEXT, TERMINATE EACH RECORD 


29 






1 WITH A CARRIAGE RETURN' 


30 






TYPE % f ' TERMINATE INPUT WITH A CTRL/Z' 


31 


c 


Loop 




32 


10 


READ <5>11>END=100> LENv INBUF ! Read record! 


33 


11 




FORMAT (QrSOAl) 


34 


c 






35 






LEN = LEN+4 ! Add 4 for A'< 


36 


c 




! 


37 






WRITE (lrl2) (BUFF (Drl^lr LEN) ! Write record 


38 


12 


FORMAT (80A1) ! to file 


39 






GO TO 10 


40 


c 


Close file and exit 


41 


100 


CLOSE (UNIT=1) 


42 






CALL EXIT 


43 






END 
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File Control Services 



SOLUTION 



2. 



♦TITLE 
♦ IDENT 
♦ENABL 



LEX 102 

701/ 

LC 



f Enable lower case 



6 
7 
3 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 

21 
22 

55 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



File LEX 102 ♦ MAC 



LEX102 appends records to the end of the file 
TEST.FIL* getting the input from Ti:. TESTJ-IL 
contains variable length records and can be 
created using the editor* A "*Z terminates input 
and closes the file* 



♦MCALL EXST*C,ai0W*C?ai0W*fDIR* 



iost: 
print: 
buff: 
obuff: 

arg: 



♦MCALL 
♦ MCALL 
♦MCALL 

♦ NLIST 

♦ BLKW 
QIOU* 

♦ BLKB 

♦ BLK'B 

♦ BLKW 



efdqio: *asciz 

efigio: »asciz 

efcdir: »asciz 

efcsio: ♦ASCIZ 

♦ EVEN 

♦ LIST 

FSRSZ* 

FOB : FDBDF* 

FDRC*A 
FD0P*A 

file: nmblk* 

♦ ENABL 

start: OPEN* A 

10$: MOV 
MOV 

20$: MOVB 
SOB 



FSRSZ* r FDBDF* r NMBLK* 
FDRC*A r FDAT*A r FDQP*A 
0PEN*A r PUT* 9 CLOSE* 

BEX 



I0.WVB»5r 1 y r f 

80* 
80* 



? Suppress ASCII 
r QIC) status block 
:0BUFFr0*40> 

i User record buffer 
9 Output buffer for 
? error messages 
1 9 Argument block for 

9 *EDMSG 

/DIRECTIVE ERROR ON QIO, ERROR CODE = %D*/ 
?I/0 ERROR ON QIO. ERROR CODE - %D.? 
/FCS DIRECTIVE ERROR* ERROR CODE = ZD*/ 
?FCS I/O ERROR CODE- ERROR CODE * %D.? 



BEX 
1 

9 BUFF r 80 ♦ 
1 9 ?FILE 
TESTfFIL 

LSB 

#FDB 9 9 9 9 9 9 ERR1 

#80*>R1 
♦BUFF? R2 
#' y(R2)+ 
Rl r20* 



9 Show offsets 

9 1 file for record I/O 

9 File descriptor block 

9 User buffer and size 

9 use LUN 1 

i TEST ♦ FIL 



OPEN for append? if 
open fails* CALL ERR1 

Size of URB 

Addr of URB 

Blank fill record 
so no garbage fill 
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51 




qioui*c 


I0.RVB>5>1> r IOST> 


><BUFF?80»>? Read a 


52 








line from TI* 


53 




BCC 


DIROK ? 


Branch on Directive ok 


54 




MOV 


♦EFIQIOrRi r 


Set up for *EDMSG 


55 




MOV 


#*DSU»R2 t 




56 




BR 


SHOERR i 


Branch to show error 


57 








and exit 


58 


dirok: 


TSTB 


IOST r 


Check for I/O error 


59 




BGT 


OKIO f 


Branch if I/O ok 


60 




CMPB 


#IE*EOF>IOST i 


Check for EOF 


61 




BEG 


EXIT ? 


If EQr close and exit 


62 




MOVB 


lOSTrRO i 


I/O status is si^n 


63 








extended and placed 


64 








in argument block 


65 




MOV 


RO y ARG i 


for *EDMSG call 


66 




MOV 


*ARG , R2 i 


Set up for *EDMSG call 


67 




MOV 


#EFDQI0?R1 f 




68 




BR 


SHOERR i 


Branch to show error 


69 








and exit 


70 


okio: 


MOV 


I0ST+2,R1 9 


Length of record to Rl 


71 




PUT* 


♦FDBy rRl »ERR2 r 


Write next record 


72 




BR 


10* f 


Get next record 


73 










74 


exit: 


CLOSE* 


#FDB ? 


Close file 


75 




BCS 


ERR3 r 


Branch on PCS error 


76 




EXST*C 


EX*SUC i 


Exit with status of 1 


77 










78 


f Error 


Processing 




79 


ERR1 ♦ 








80 


ERR2 J 








81 


ERR 3 ♦ 


TSTB 


F ♦ ERR+1 < RO ) ? 


Directive error or I/O 


82 








error 


83 




BEQ 


10 ? 


Branch on I/O error 


84 




MOV 


♦EFCDIR rRl t 


Set up for *EDMSG 9 


85 








directive error 


86 




BR 


FINSET 9 


Branch to finish setup 


87 


io: 


MOV 


♦EFCSIOrRl ? 


Set up for *EDMSG 9 I/O 


88 








error 


89 


finset: 


MOVB 


F ♦ ERR (RO ) rRO t 


FCS error code 


90 




MOV 


R0» ARG ? 


is sign extended and 


91 




MOV 


#AR6 * R2 ? 


placed in arg block 


92 








*EDMSG argument block 


93 


shoerr: 


MOV 


#OBUFF ? RO ? 


Output buffer 


94 




CALL 


*EDMSG r 


Format error message 


95 




MOV 


RlrPRINT+G*I0PL+2 


9 Size of message 


96 




DIR* 


♦PRINT r 


Print error message 


97 




CLOSE* 


#FDB 9 


Close file 


98 




EXST*C 


EX*ERR 9 


Exit with status of 2 


99 




♦ END 


START 
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1 



PROGRAM LEX102 



2 C 

3 C FILE LEX102*FTN 

4 C 

5 C This task appends records to the file TEST»FIL ♦ 

6 C The records are input from the terminal and copied to 

7 C the file* The process stops when the operator types 

8 C CTRL/Z at the terminal* 

9 C TEST»FIL contains variable length records and can 

10 C be created us ins the editor* 

11 C 

12 BYTE BUFF (80) 

13 INTEGER LEN 

14 C 

15 C 

16 C OPEN FILE 

17 C 

18 C Default access is sequential 

19 C Default is formatted I/O for sequential files 



20 
21 



C 



OPEN 
1 



( UNIT=1 t NAME"- ' TEST ♦ FIL ' t TYPE= ' OLD ' y 
CARRIAGECONTROL ::: 'LIST' y ACCESS- ' APPEND " ) 



23 
24 



C 



TYPE * t ' TYPE IN TEXT y TERMINATE EACH RECORD 
1 WITH A CARRIAGE RETURN' 

TYPE * r ' TERMINATE INPUT WITH A CTRL/Z ' 




32 
33 
34 
35 
36 
37 



C I 
10 

11 
c 



WRITE <1»12> (BUFF( I > y 1-1 fLEN) 
12 FORMAT (80A1) 

GO TO 10 
C Close file and exit 
100 CLOSE (UNITED 



Loop 



READ (5yllyEND=100) LEN t BUFF 
FORMAT (Qy80Al) 



! Read record 



! Write record 
! to file 



CALL EXIT 
END 
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3. 



1 




♦TITLE 


p 




♦ I DENT 


3 




♦ ENABL 


A 

T 


y + 




5 


f File 


LEX103. 


6 






7 


i Modified to 


(3 


y input 


from T 


o 

7 








i CREFXA opens 


1 1 


r from 


Ti: and 


12 


y A ~z 


termiri3 


13 






14 






15 




♦ MCALL 


16 






17 




♦ MCALL 


18 




♦ MCALL 


19 




♦ MCALL 


20 




♦MCALL 


21 






22 




♦ NLIST 


23 


RSIZ 


= 30* 


24 


iost: 


♦ BLKW 




print: 


QIOW* 


26 


buff: 


♦ BLKB 


27 


obuff: 


♦ BLKB 


28 






29 


arg: 


♦ BLKW 


30 






31 


EFDQIO: 


♦ASCIZ 


32 


efiqio: 


♦ASCIZ 


33 


efcdir: 


♦ ASCIZ 


34 


efcsio: 


♦ ASCIZ 


35 






36 




♦ EVEN 


37 




.LIST 


38 






39 




FSRSZ* 


40 


y 




41 






42 


fdb: 


FDBDF* 


43 




FDRC*A 


44 




FDAT*A 


45 






46 




FD0P*A 


47 


file: 


NMBLK* 



CREFXA 

/01/ 

LC 



? Enable lower case 



f 9 EX 



EXST*CyQIOW*CyQIOW*yDIR* 

FSRSZ* y FDBDF* y NMBLK* 
FDRC* A f FDAT*A y FDOP* A 
0PEN*W y GET* y PUT* y CLOSE* 
0PEN*R 

BEX ? Suppress ASCII 

y Record size (bytes) 
2 y QIO status block 

1 ♦ WMB y 5 y 1 y y y y <0BUFF y t 40> 

RSIZ y User record buffer 

80* ? Output buffer for 

? error messages 
1 y Argument block for 

? *EDMSG 

/DIRECTIVE ERROR ON QIO* ERROR CODE = ZD./ 
?I/0 ERROR ON QIO. ERROR CODE = ZD.? 
/FCS DIRECTIVE ERROR ♦ ERROR CODE = ZD./ 
?FCS I/O ERROR CODE ♦ ERROR CODE = ZD.? 



BEX 



y Show offsets 



y 2 files for 



record I/O 
? ?EX 



y BUFF y RSIZ 

R ♦ FIX yFD.CRy RSIZ 

lyyFILE i 
FIXEDy ASC i 



File descriptor block 
User buffer and size 
: Fixed length records y 
implied < C R > < L F > 
use LUN 1 
FIXED. ASC 
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49 

50 
51 
52 
53 
54 
55 
56 
57 
58 
59 

60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 

90 
91 
92 
93 
94 
95 
96 



9 FDB for Ti: 
FDBi: FDBDF* 



DSPTI 



DEV* 



FDRC*A » BUFF » 30. 

FDAT*A R.VARrFD.CR 
FD0P*A 2 f DSPTI 



♦ WORD 

♦ WORD 

♦ WORD 



LDEVj-DEV 
OrO 

0*0 



♦ASCII /lit/ 
LDEV«*-DEV 
♦ EVEN 

♦ ENABL LSB 



start: open$w #fdb» » ? » ? >erri 

OPEN*R #FDBI nn r r ERR1 



10$: MOV 
MOV 

20$: MOVB 
SOB 
GET$ 
BCC 
TSTB 

BNE 

9 Stay here for 

ioerr: cmpb 

BED 
BR 



okio: 



exit: 



PUT* 
BR 

CLOSE* 
BCS 

CL0SE$ 
BCS 

EXST$C 



#RSIZ»R1 

♦BUFF t R2 
#' »<R2)+ 
Rl t 20* 
♦FDBI 
OKIO 

F.ERR+KRO) 

DIRERR 

I/O error. Check 
*IE.E0F>F.ERR(R0) 

EXIT 
10 



♦FDB» y >ERR2 
10* 

♦FDB 

ERR3 

♦FDBI 

ERR4 

EX*SUC 



URB addr and size? 

defaults to 

sequential access 
Fixed length records 

i rap 1 i ed <CRXLF> 
Use LUN 2? dataset 

descriptor at DSPTI 
Device 

UIC - not needed for 

ti: 

File Name -- not 
needed for TI* 
ASCII device 



OPEN? if open fails* 

CALL ERR1 
OPEN "file" on Ti: 

for read 

Size of URB 
Addr of URB 
Blank fill record 

so no garbage fill 
Get record from TI. 
Branch on GET* ok 
I/O error or 

directive error? 
Branch on directive 
error 
for "Z. 
9 Check for EOF 
If EQr close and exi 
It is an I/O error? 

so display error 

message and exit 
Write next record 
Get next record 

Close file 
Branch on FCS error 
Close "file" at Ti: 
Branch on FCS error 
Exit with status of 



9 EX 
9 EX 
9 EX 
J EX 
?EX 
9 9EX 
9 EX 

?EX 
5 EX 
?EX 

?EX 
9 EX 
9 9 EX 
9 EX 
9EX 
9EX 



9 9EX 
9 9 EX 



9 EX 
9 EX 
9EX 
9EX 
9 EX 
9EX 
9EX 
9 EX 
9 9 EX 
9EX 
9EX 
9EX 



EX 
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98 


i Error 


Processing 




99 


erri: 








100 


ERR2J 








101 


ERR 3 ♦ 








102 


ERR4 : 


TSTB 


F»ERR+ 1 <R0) 9 


Directive error or I/O 


103 








error 


104 




BEG) 


10 f 


Branch on I/O error 


105 


mrerr: 


MOV 


♦EFCBIRyRl 9 


Set up for *EDMSG 9 9 9 EX 


106 








directive error 


107 




BR 


FINSET f 


Branch to finish setup 


108 


io : 


MOV 


#EFCSIOyRl ? 


Set up for *EEiMSG> I/O 


109 








error 


110 


finset: 


MOVB 


F»ERR<R0),R0 ) 


FCS error code 


111 


MOV 


ROvARG i 


is si sin extended and 


112 




MOV 


#ARG yR2 9 


placed in arg block 


113 








*EDMSG argument block 


114 


shoerr : 


MOV 


♦OBUFFrRO i 


Output buffer 


115 




CALL 


*EDMSG i 


Format error message 


116 




MOV 


Rl*PRINT+Q*I0PL+2 


i Size of message 


117 




MR* 


♦PRINT 9 


Print error message 


118 




CLOSE* 


#FDB ? 


Close file 


119 




CLOSE* 


♦FDBI 9 


Close "file" at Tli 9 9 EX 


120 




EXST*C 


EX*ERR 9 


Exit with status of 2 


121 




♦ END 


START 
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1 




♦TITLE 


LEX104 


2 




♦ I BENT 


/01/ 


3 




♦ ENABL 


LC ? Enable lower case 


4 

5 


i File 


LEX104»MAC 


6 

7 


i This 


program 


opens the file FIXED ^ASC and updates 


8 


r records in the file using random access* The original 


9 


i file 


was created using CREFXA 


10 








11 




♦MCALL 


FDBDF* ? FDAT*A t FDRC*A r FD0P*A t 0PEN*U 


12 




♦MCALL 


EXIT$S*QIOW*C>QIOW*»QIOW*S>PUT*R 


13 




♦ MCALL 


CLOSEfcyFCSMC* 


14 








15 




FCSMC$ 


? Get most of the PCS 


16 






y macros (FCSMC$ has 


17 






y ♦MCALLs for many FCS 


18 






y macros 


19 








20 




♦NLIST 


BEX 


21 
22 


RSIZ 


=30. 


$ Record size (in bytes) 


23 


iost: 


♦ BLKW 


2 ? I/O status block 


24 


print: 


QIOU* 


1 ♦ W VB y 5 y 1 y y y y <0UT y t 40> 


25 


buff: 


♦ BLKB 


RSIZ y user record buffer 


26 


emesb: 


♦ASCIZ 


/FCS DIRECTIVE ERROR ♦ CODE « 7.1)*/ 


27 


emesi : 


♦ASCIZ 


'FCS I/O ERROR ♦ CODE = %D*' 


28 


out: 


♦ BLKB 


100 ♦ ? Output message buffer 


29 


buffi: 


♦ASCII 


/THAT'S ALL FOLKS!/ * Message on success 


30 






y completion 


31 




LEN1=.- 


BUFFI 


32 


ERRMSG 


: ♦ BLKB 


100+ y Error message buffer 


33 


MSGERF 


: ♦ASCIZ 


/DIRECTIVE ERROR y CODE * ZD/ 


34 


cnver : 


♦ASCII 


/CONVERSION ERROR ON RECORD NUMBER/ 


35 




LCNVER= 


♦ -CNVER 


36 


inpt: 


♦ASCII 


/ENTER RECORD NUMBER AND TEXT:/ 


37 




LINPT= ♦ 


-INPT 


38 




♦ EVEN 




39 








40 




FSRSZ$ 


1 ? 1 file open for record 


41 






y I/O 


42 


9 FDB 


for file 




43 


fdb: 


FDBDF* 


y FDB 


44 


?FD»INS is needed to keep the EOF mark where it is 


45 




FDRC*A 


FD ♦ INS ! FD. RAN y BUFF y RSIZ ? Random made* URB 


46 






y addrs and size 


47 




FD0P*A 


lyyDFNB y Use LUN ly default 


48 






y filename block 


49 


DFNB : 


NMBLK* 


FIXED y ASC y Default name FIXED*ASC 
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50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 



ENABL LSB 



start: open*u #fdbi 



y Clear 

io$: 

20$ : 



buffer to all blanks 
MOV #RSIZyRl 
MOV *BUFFyR2 
MOVB *' y(R2)+ 
SOB Rly20* 



r Allow local symbols 
y to cross Psect 
i boundaries 

yyERRl i Open file for update 
$ (includes extend) 

each time 

y Record size 

? R2 => buffer 

y Move in a bl3nk 

y Continue until done 



y Check 



QI0W*C I0.RPRy5yly y I0ST y y <BUFF y RSIZ t y INPT y LINPT y ' *.' 

y Prompt and get input 
Check for ~Z 
If "Zy exit 
Set up to convert 
record # to binary 
after * is 



CMPB 

BEG) 

MOV 

CALL 

for 



#IE.E0Fy I0ST 
EXIT 

♦BUFFyRO 
*CDTB 

good conversion y character 
returned in R2 (it should be a "y") 

CMPB #"yyR2 ? Is it a comma 

BEG GOOD y Branch on good 

? conversion 

HKWVBySyly y y y -XNVER y LCNVER y 40> 

y Display error message 



GI0W*C 
BCS 



good: 



y Close 

exit: 



ERR1 : 
ERR2 : 
ERR3 : 



ioerr: 



BR 

PUT*R 
BR 

f iley 
CLOSE* 
GI0W*C 

BCS 

EXIT*S 



CLOSE* 

MOVB 

MOV 

MOV 
TSTB 
BEG. 
MOV 

BR 
MOV 



ERR4 
10* 

*FDB y y yRly yERR2 



Branch 



di recti ve 



output 



10* 

display 



message y 



#FDB yERR3 
I0»WVBy5yly y y y 

ERR4 



#FDByERR3 
F*ERR(R0) yRO 
ROylOST 

#I0STyR2 
F,ERR+1(R0) 
IOERR 
♦EMESDyRl 

COMME 
#EMESIyRl 



on 

error 
Get next input 
Write record to 
y file 

y Get next input 
and exit 

? Close file 
(BUFF 1 y LEN 1 y 40> i W r i te 
y message to operator 
y Branch on error 



Close file 

Move FCS error code 

to argument block 

for *EDMSG 
Set up for *EDMSG 
I/O or directive error 
Branch on I/O error 
Set up for dir error 

message 
Branch to common code 
Set up for 1/0 error 

message 
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102 


COMME J 


MOV 


#0UT>R0 


? 


Set up for $EDMSG 


103 




CALL 


$EDMSG 


r 


Edit error messagi 


104 




MOV 


Rl yPRINT+G*IOP 


L+2 


i Length of error 


105 










5 message 


106 




DIR$ 


♦PRINT 


r 


Display error mes 


107 




EXIT*S 




? 


EXIT 


108 












109 


r Here 


for directive error on 


QIO 




110 


ERR4 ♦ 


MOV 


♦ERRMSG y RO 


? 


Set up for $EDMSG 


111 




MOV 


♦MSGERFrRl 


9 




112 




MOV 


♦*DSWrR2 


y 




113 




CALL 


$EDMSG 


i 


Edit message 


114 




QI0W$S 


#I0.WVB»#5f #1» 


r v 9 '■ 


.♦ERRMSG 9RI9 *4()> 


115 








V 


Display in e s s a g e 


116 




EXIT$S 




r 


Exit 


117 




♦ END 


START 







1 PROGRAM LEX 104 

2 C 

3 C File LEX104.FTN 

4 C 

5 C This task updates records in the file FIXED »ASC using 

6 C direct access formatted writes* The original file was 

7 C created using CREFXA* 

8 C 

9 C Direct access formatted writes are available in 

10 C FORTRAN IV-PLUS and FORTRAN- 77 only 

11 C 

12 BYTE REC (30) 

13 C 

14 C Open file 

15 OPEN ( UN I T~2 y NAME - 'FIXED ♦ ASC ' 9 ACCESS" ' DIRECT ' 9 

16 1 TYPE™ 'OLD" r FORM™ 'FORMATTED' ) 

17 C Place blanks in buffer 

18 10 DO 15 J=l,30 

19 REC(J)"' ' 

20 15 CONTINUE 

21 C Read record from terminal 

22 WRITE <5>20> 

23 20 FORMAT (CENTER RECORD NUMBER AND TEXT J ') 

24 READ (5y50yEND™900) REC 

25 50 FORMAT (64A1) 

26 C Convert record number to integer format 

27 DECODE <2r60yREC> NREC 

28 60 FORMAT (12) 

29 C Write record to disk 

30 WRITE ( 2 'NREC 9 80) REC 

31 80 FORMAT (30A1) 

32 100 GOTO 10 

33 C ~Z input? close file and exit 

34 900 CLOSE (UNIT~2) 

35 CALL EXIT 

36 END 
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5. 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



♦ TITLE BL0CK2 

♦ I DENT /01/ 
♦ENABL LC 



? File? LEX105.MAC 



r Enable lower esse 
r r EX 



? Modified to work on 2 virtual blocks 3t a time ??EX 
y 

) ##-BL0CK2 prompts 3t Tit for a virtual block number 

? and then reads and displays that block of "BLOCK .ASC 



♦MCALL QI0W*yDIR*yQI0W*SyEXST*S 

♦ MCALL. FDBDF* r FDRC*A y FDBK*A r FD0P*A x NMBLK* 

♦ MCALL FSRSZ* y0PEN*Ry READ* y WAIT* y CLOSE* 



SBTTL MESSAGES 

NLIST BEX 
= 15 
= 12 

ASCII /FIRST VIRTUAL BLOCK: / 
* ♦ - MES1 

ASCII < C R > < L. F > /HERE ARE THE BLOCKS 



CR 
LF 

mesi: 

LENl 
MES2 * 
r 

LEN2 
MES3I * 
MES3D ♦ 
MES4I t 
MES4D ♦ 
MES5I t 
MES5D t 

buff: 



fdb : 



file: 



HEX 

/<CRXLF> 
f ?EX 



= . - MES2 

ASCIZ 'I/O ERROR 

ASCIZ /DIRECTIVE 

ASCIZ 'I/O ERROR 

ASCIZ /DIRECTIVE 

ASCIZ 'I/O ERROR 

ASCIZ /DIRECTIVE 

BLKB 80* 



FROM 0PEN*Ry CODE = ZD.' 
ERROR FROM 0PEN*Ry CODE = ZD./ 
FROM READ* » CODE ~ ZD.' 
ERROR FROM READ* y CODE - %D./ 
FROM WAIT*y CODE = ZD*' 
ERROR FROM WAIT*y CODE = ZD./ 
t STORE RESPONSE HERE 



.LIST 
.EVEN 
.SBTTL 



BEX 



.OCAL STORAGE 



FSRSZ* 



NO FSR BUFFER NEEDED 
FOR BLOCK I/O 



FDBDF* 
FDRC*A 
FDBK*A 

FDOP*A 
NMBLK* 



t FDB FOR INPUT FILE 
FD.RWM 9 READ/WRITE MODE 

BLOCK* 1024 .rtl> IOSB 9 EF 1 ? BUFFER ADRr r f EX 

y SIZE 

1 r y FILE f LUN lv DFNB 

BLOCK y ASC y NAME IS BLOCK .ASC 



vbn: .WORD 
block: .blkw 
iosb: .blkw 



Oyl 
512. 



DEFAULT VBN 
BLOCK BUFFER 



y y EX 
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51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 

71 

72 

73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 



prompt: GIOW* 
done: aiow* 
dump: aiow* 



10 ♦ RPR y 5 y 1 y y IOSB t t <BUFF y 6 y y MES1 y LEN1 y ' *> 

? Prompt and get VB # 
I0»WVBy5y 1 r y r 9 <MES2>LEN2y40> y Done 

9 message 

10* WVBy 5y 1 9 9 9 9<0f6A* t 40> r Display of VB 



♦ SBTTL MAINLINE CODE 



start: 



0PEN*R 

DIR* 

MOV 

CLRB 

MOV 

CALL 

MOV 

READ* 

WAIT* 

DIR* 



#FDBj> 9 v 9 9 rERRi i Open file 

♦PROMPT ? Ask for a VBN 

I0SBf2yR0 f Put null 3t end 

BUFF(RO) } of di^it string 

♦BUFFyRO i RO *> VBN 

*COTB 9 Convert to binary 

RlyVBN+2 9 Store as low VBN 

♦FDBy 9 y#VBNy 9 9 yERR2 y Read in the block 

yyyERR3 9 Wait until done 

♦DONE 9 Tell their. I/O is done 



9 Now dump 16* lines of 64* characters each 



i EX 



i*: 



MOV #BL0CK'yR0 

MOV #16*yRl 

MOV ROyDUMP+CUIOPL 

DIR* #DUMP 

ADD #64.yR0 

SOB Rlrl* 



i RO => 1st line to dump 

y ♦ of lines to dump y?EX 

? Addr of current line 

y Dump it 

y Point at next line 

i Dump all 8* lines 



y Now we exit with status 



EX*SUC 



MOV 
BR 



*EX*SUCyR; 
EXIT 



♦SBTTL ERROR ROUTINES 



ERR1 



I0ERR1 



ERR2: 



TSTB 

BEQ 

MOV 

BR 

MOV 

BR 

TSTB 
BEQ 
MOV 
BR 



F*ERR+1(R0> 

I0ERR1 

#MES3DyRl 

FCSERR 

♦MES3I y Rl 

FCSERR 

F»ERR+1 <R0) 
I0ERR2 
#MES4Dy Rl 
FCSERR 



y Put status in R5 
? And then exit 



I/O or directive error? 
Branch on I/O error 
-> Dir error message 3 
Branch to common code 
~> I/O error message 3 
Branch to common code 

I/O or directive error? 
Branch on I/O error 
=> Dir error message 4 
Branch to common code 
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101 

102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 



I0ERR2 i MOV 
BR 

ERR 3 : 

TSTB 
BEQ 
MOV 
BR 

I0ERR3: MOV 



fcserr: 



FORMAT 



exit: 



MOVB 

MOV 

MOV 

MOV 
MOV 
CALL 
QIOW*S 



CLOSE* 
EXST*S 
♦ END 



#MES4I,R1 

FCSERR 

F»ERR+1 <R0) 
I0ERR3 
♦MESSED Rl 
FCSERR 
*MES5I>R1 



F»ERR(RO) tR2 
R2> IOSB 
#EX*ERR»R5 

*I0SB>R2 
#BUFF»R0 
$EDMSG 

*I0.WVBy#5y#l > 9 , 



#FDB 

R5 

START 



=> I/O error message 4 
Branch to common code 

I/O or directive error 
Branch on I/O error 
~> Dir error message 5 
Branch to common code 
--> I/O error message 5 
FALL INTO COMMON CODE 

Si3n extend error code 

and move into IOSB 
Exit status in R5 

Set up for *EDMSG 



:*BUFF»R1,#40> ? Display 
message 

Close the file 
Exit with status 
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1 ♦TITLE CSI 

2 . I DENT /O.I./ 

3 * ENABI... LC 9 Enable lower case 

4 9 

5 9 File LEX106.MAC 

6 9 

7 ? Modified to actually delete or display the file mEX 

8 v 

9 5 C S I i 1 1 U s t r a t e s t h e u s e o f t h e c o in in a i "i d s t r i n 3 

.1. 9 i n t e r p r e t e r « "f h i s t a s k a c c e p t s a c o in in a n d 1 i n e f r o m t h e 

1.1 y terminal in the form t 

12 v 

1 3 y d e v * I" y, y y .'.'I f i 1 e n a m e ♦ f i 1 e t w p e y v e r s i o n / s w i t c h 

14 ? 

.1. 5 y w h e r e s w i t c h c a n h e ♦ 

16 9 DE •• Delete file 

17 ? D I t N - Display N copies of file 
18 

19 .MCALL GCMLB*yGCML*yCSI*yCSI$l yCSI*2 

2 ♦ M C A L I... C 8 1 * S V y C S I $ S W y C S I * N D 

2 1 ♦ M C A L I... F S R S Z * y F D B D F * y F D R C * A r F D P $ A r F I N I T * 

22 . M C A I... I... Q I U * S y Q 1 W * > D I R * r E X I T * S 

23 ♦ MCAL I... D E I... ET* v P E N * R y P EN*W y G E T * y P U T * y C L S E * 
24 

25 .NLIST BEX 

26 9 LOCAL DATA 

27 TYPE1 X QI OW* 10 . WVB y 5 y 1 y t r y <ERR1 y SIZ1 r 40> 

28 TYPE2 * QIOW* 10 . WVB y 5 y 1 y y y y <ERR2 t SIZ2 y 40> 

29 TYPE 3 J QIOW* 1 . W VB y 5 y 1 mm <ERR3 y S I Z3 y 40> 

30 T YPE4 % Q I OW* I . WVB »5»1mm <BUFF y y 40> y > EX 

31 ERR1 ♦ .ASCII /GET COMMAND LINE ERROR/ 

32 SIZl^.-ERRl 

33 ERR 2 ♦ * ASCI I /CSI ERROR* ILLEGAL COMMAND/ 

34 SIZ2" :: ♦ "ERR 2 

35 ERR 3 I ♦ ASCI I /CSI ERROR ♦ FILE SPEC ERROR/ 

36 8IZ3 :::: . "ERR 3 

37 BUFF i *BLKB 100* 9 Output text buffer 

38 TBUFF t .BI...KB 132. 9 Transfer buffer 

39 FMT i .ASCIZ /YOU HAVE REQUESTED A %7A JOB/ 

40 FMTERD: .ASCII /FCS DIRECTIVE ERROR ON %7A./ mEX 

41 ♦ ASCIZ / CODE = %D./ J SEX 

42 FMTERI i ♦ ASCIZ ?FCS I/O ERROR ON %7A. CODE = %D.?mEX 

43 .EVEN 

44 DATA t ,BLKW 2 5 Argument block 9 9 EX 

45 DEL TXT * .ASCII /DELETE/<0> 9 ASCII text 

46 DITXT: .ASCII /DISPLAY/ 

47 NOTXTJ .ASCII /NOTHING/ 

4 8 C I... T XT ♦ .ASCII / C I...0 S E / < > < > 9 F or close y y EX 

49 ♦ EVEN 
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51 CSI* 9 Define CSI offsets 

52 CBLK: .BLKB C.SIZE 9 allocate CSI storage 

53 ♦ EVEN 
54 

55 DEMSK = 1 f Delete mask 

56 DIMSK = 2 t Display mask 

57 SUTBL* 9 Switch descriptor table 

58 CSI$SW DEy DEMSK 9 Delete switch = DE 

59 CSI*SW DI yDIMSKy r y yNUM 9 Display switch = Dly 

60 9 also 3llow DUN 

61 CSI*ND 9 End of switch table 
62 

63 CSI*SV OCTAL y COPY y 2 y NUM 9 Value N for /DUN is 

64 9 in octal 3nd will 

65 9 be stored in COPY 

66 CSI*ND 9 End of switch value 

67 9 table 

68 ?GET COMMAND LINE BLOCK DEFINITIONS 
69 

70 FSRSZ* 3 9 GCML uses record I/0?yEX 
71 

72 GBLK: GCMLB* yCSIyyS 9 Prompt with 'CSI' on 

73 9 LUN 5 

74 FDBt FDBDF* 9 FDB for file to delete 

75 9 or display* 

76 FDRC*A y TBUFF y 132* 9 URB AT TBUFF r length 

77 9 132. 

78 FD0P*A lyCBLK+C.DSDS f LUN 1» dataset 

79 9 descriptor from CSI 
80 

81 9 NOTE? Need a 2nd FDB for display 
82 

83 FDBO: FDBDF* 9 FDB for output to TU??EX 

84 FDAT$A R. VARyFD.CR y V3r length records y y?EX 

85 9 list format yyEX 

86 FDRC*A , TBUFF y 132. 9 URB at TBUFF y length 9 9 EX 

87 9 132. ??EX 

88 FD0P*A 2>DSPT0 i LUN 2r dataset y?EX 

89 f descriptor at DSPTO y?EX 

90 DSPTOi ♦ WORD LDEVyDEV 9 Dataset descriptor yyEX 

91 ♦ WORD OyO 9 for TU . No UIC or yyEX 

92 .WORD OyO 9 name needed. yyEX 

93 DEV: .ASCII /TU/ f 9 9EX 

94 LDEV=.-DEV 9 9 9 EX 
95 

96 ♦ EVEN 

97 JMPTBL: .WORD NONE y DELETE y DISPLY y Jump table for 

98 y subroutines depending 

99 9 on switches 

100 COPY: .WORD 1 y Value for N in /DUN 
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101 .ENABLE LSB 
102 

103 START? FINIT$ ? Initialise FCSy this 

104 i is normally done with 

105 r an OPEN statement* 

106 r For delete we do not 

107 t need an open statement* 

108 NEXT! GCML$ #GBLK f Prompt and get command 

109 BCC 10* ? Branch if command OK 

110 r Check for ~Z» If ~Zy exit* 

111 CMPB #GE ♦ EOF y GBLK+G ♦ ERR 5 Is it ~Z? 

112 BNE REALER f Branch on other error 

113 EXIT$S t Exit 

114 REALER ♦ DIR* #TYPE1 y Display error text for 

115 i get command line error 

116 EXI'T$S ? Exit 

117 ? Parse input for illegal characters 

118 10$: CSI$1 #CBLK r GBLK+G ♦ CMLD+2 * GBLK+G ♦ CMLD y Format 

119 } is CSI addry addr of 

120 f command)' length of 

121 f command 

122 BCC 20$ r Branch on OK command 

123 DIR$ #TYPE2 ? Display error text for 

124 r illegal command 

125 EXIT$S i Exit 
126 

127 f Create a dataset descriptor from the file specification 
128 

129 20$: CSI*2 #CBLK y OUTPUT t *SWTBL ? Expect output file 

130 9 spec 

131 BCC 30$ y Branch on file spec OK 

132 DIR* *TYPE3 ? Display text for file 

133 y spec error 

134 EXIT$S y Exit 
135 

136 y Call the appropriate subroutine 
137 

138 30$: MOV #FDByR0 y Address of file 

139 y descriptor 

140 MOV CBLK+C*MKW1 yRl y Mask value = Oy ly or 2 

141 y 

142 ASL Rl y Double for word offset 

143 y into Jump table 

144 CALL eJMPTBL(Rl) y Call the subroutine 

145 BR NEXT y Get next command line 
146 

147 ? Subroutine NONEy entered if no switches specified 
148 

149 NONE: MOV *N0TXT r DATA y Set up for output of 

150 ? message 



144 



File Control Services 



SOLUTION 



151 CALL OUTMS ? Call OUTMS y as a ??EX 

152 ? subroutine ??EX 

153 RETURN ? Return ??EX 
154 

155 ? Common display message code ~ a subroutine since it ??EX 

156 ? is not a common return point ??EX 
157 

158 OUTMS : MOV #BUFFyRO J Set up for $EDMSG 

159 MOV *FMT yRl ? 

160 MOV #DATAyR2 ? 

161 CALL $EDMSG y Edit message 

162 QI0W*S #I0*WVBy#5y#ly ft y<*BUFFyRl y #40> ? Display 

163 RETURN ? Return 
164 

165 ? Subroutine DELETE 

166 ? 

167 ? ***WARNING - THE HIGHEST VERSION NUMBER OF THE FILE *** 

168 ? ***WILL BE DELETED IF NO VERSION NUMBER IS SPECIFIED *** 
169 



170 


delete: 


MOV 


♦ DELTXT y DATA ? 


Set up for output of 




171 








message 




172 




CALL 


OUTMS ? 


C3ll display 


? ?EX 


173 








subroutine 


? 5 EX 


174 




DELET* 


♦FDBrERRD ? 


Delete file 


? ? EX 


175 




RETURN 




Return 




176 


? Delete error 


code 






177 


ERRD : 


MOVB 


F»ERR<RO) yR5 ? 


Extend sign on error?? EX 


178 




MOV 


R5 i DATA+2 ? 


and move to srsi block?? 


179 




MOV 


♦DELTXT y DATA ? 


Move pointer to delete?? 


180 








text 


? ?EX 


181 


COMME.* 


TSTB 


F.ERR+1 (RO) ? 


Check for directive 


? ?EX 


182 








error or I/O error 


? ?EX 


183 




BEQ 


IOERR ? 


Branch on I/O error 


? ? EX 


184 




MOV 


♦FMTERDyRl ? 


Get format string 


? ?EX 


185 




BR 


DISPER ? 


Branch to common 


? ? EX 


186 








error display code 


? ?EX 


187 


ioerr: 


MOV 


♦FMTERI y Rl ? 


Get format string 


? ? EX 


188 


disper: 


MOV 


♦BUFFyRO ? 


Set up for *EDMSG 


? ? EX 


189 




MOV 


#DATAyR2 ? 




? ?EX 


190 




CALL 


$EDMSG ? 


Edit message 


? ?EX 


191 




MOV 


RlyTYPE4+Q»I0PL+2 


? Size of message 


? f EX 


192 




DIR* 


♦TYPE4 ? 


Display message 


??EX 


193 




EXIT*S 




Exit 


? ?EX 


194 












195 


? Subroutine DISPLY - Just display a message 




196 












197 


disply: 


CALL 


*SAVAL y 


Save all registers 




198 




MOV 


♦DITXTyDATA ? 


Set up for output of 




199 






? 


message 




200 




CALL 


OUTMS ? 


Branch to common 




201 






? 


display code 
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202 




0PEN*R 


#FDB t y y y y r ERRE 


y 


Open file for input 


203 




0PEN*W 


♦FDBOy t y y t r ERRE 


y 


Open Ti: for output 


204 




MOV 


C0PY>R4 


y 


Number of copies to 


205 








y 


R4 


206 




MOV 


#FDB r RO 


y 


Addr of FDB of input 


207 








y 


file 


208 




CALL 


♦ MARK 


y 


S3ve pointers to 


209 








y 


first record for 


210 








y 


resetting. Pointers 


211 








y 


are returned in Rly 


212 








y 


R2yR3 


213 




BCS 


ERRE 


y 


Branch on error 


214 


get: 


GET* 


*FDB 


y 


Get record from file 


215 




BCS 


CHECK 


y 


Branch on error 


216 


r Stay 


here if 


OK get - output 


record to TI* 


217 




MOM 


F ♦ NRBD ( RO ) * FDBO+F 


♦NRBD J Move length of 


218 








¥ 


record to FDBO 


219 




PUT* 


♦FDBOy r f ERRE 


y 


Display record at TI* 


220 




BR 


GET 


y 


Get next record 


221 


r Error 


code 










check: 


CMPB 


♦ IE ♦ EOF y F ♦ ERR ( RO ) 


y Check for EOF 


223 




BNE 


ERRE 


y 


Branch if not 


224 




DEC 


R4 


y 


Decrement copy counter 


225 




BNE 


AGAIN 


y 


Branch if more to do 


226 




MOV 


♦1 yCOPY 


y 


Reset number of copies 


227 




CLOSE* 


♦FDByERRC 


y 


Close file 


228 




CLOSE* 


♦FDBO f ERRC 


y 


Close TI* 


229 




RETURN 








230 


r More 


copies 


to do ~ reset pointers to start of input 


231 


y file 


and repeat 






232 


again: 


CALL 


♦ POINT 




RlyR2yR3 are still set 


233 




BCC 


GET 




Display next copy 


234 


r Here 


for errors on PUT*sr GET*s 


y and ♦ POINTs 


235 


ERRE : 


MOVB 


F»ERR(R0) yR5 




Extend sign and move 


236 




MOV 


R5 r DATA+2 




error code to DATA 


237 




MOV 


♦DITXTyDATA 




Move display function 


238 










for display 


239 




CLOSE* 


♦FDByERRC 




Close files 


240 




CLOSE* 


♦FDBO y ERRC 






241 




BR 


COMME 




Branch to common error 


242 










code 


243 


y Here 


for errors on close 






244 


ERRC : 


MOVB 


F»ERR(R0) yR5 




Extend sign and move 


245 




MOV 


R5y DATA+2 




error code to DATA 


246 




MOV 


♦CLTXTyDATA 




Move close text for 


247 










display 


248 




JMP 


COMME 




Jump to common error 


249 










code 


250 




♦ END 


START 
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